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ABSTRACT 


THE FUNCTION OF THE DQ11 DIAGNOSTICS ARE TO 
VERIFY THAT THE OPTION OPERATES ACCORDING 
TO SPECIFICATIONS. 


CURRENTLY THERE ARE SEVEN OFF * oe THAT ARE 
TO BE RUN IN SEQUENCE TO INSURE THAT IF AN 
BE DETECTED 
AT AN EARLY STAGE AND INSURING THAT 
DIAGNOSIS OF ERROR WILL BE IMMEDIATE TO PROBLEM 
NOTE: ADDITIONAL DIAGNOSTICS MAY BE ADDED IN THE FUTURE. 


THE toy DIAGNOSTICS ARE: 
1. QA [REV] BASIS R/wW TEST #1 
2, Bacit R/wW TEST #2 


BA NPR AND INTERUPT TEST 
arate ee ete EXERCISER TEST 
MISC. RX AND T ea TUE PLUS BCC TESTS. 


- CZDQF CREVJ CHARACTER DETECT TEST 
- CZDQH CREV] CHARACTER LENGTH AND INTERRUPT TESTS. 


THERE IS ALSO_AN ONLINE TEST TO BE DISCUSED LATER. 
1. CZDQO CREVJ ONLINE TEST. (ITEP OVERLAY) 


A PARAMETER INPUT PROGRAM IS AVAILABLE 


AND 
1. CZDQG CREV] DQ11 TRIAL PROGRAM (PARAMETER INPUT) 
REQUIREMENTS 


EQUIPMENT 

ANY PDP11 FAMILY CPU (WITH MINIMUM 4k MEMORY) -WITH 
OR WITHOUT A HARDWARE SWITCH REGISTER (LOC. 1975970) 
1p 33 (OR EQUILIVALENT) 

SYNC MODEM (ONLY REQUIRED FOR ONLINE TEST) 

STORAGE 

PROGRAM WILL LOAD AND RUN 

IN 4K OF MEMORY. 

LOCATION 1400 THRU 1600 ARE ESPECIALLY TO 

BE NOTED ~~ TO BE UNTOUCHED BY CPERATOR 


AFTER DQ11 TRIAL PROGRAM HAS BEEN EXECUTED. 
OR AFTER THE ‘‘AUTO SIZING’ HAS BEEN DONE. 


LOADING PROCEEDURE 
ME THOD 
ALL PROGRAMS ARE IN ABSOLUTE FORMAT AND 
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ARE LOADED USING THE ABSOLUTE LOADER. 
ABSOLUTE LOADER STARTING ADDRESS *500 


LOAD THE ADDRESS OF ABS. LOADER (LOC.XxXx500) 
THEN START 


STARTING PROCEEDURE 


A. LOAD LOC. 200 
B. SET SWR TO ZERO FOR "‘AUTO SIZING'' OR LEAVE 
LEAVE SWR BIT 7=1 TO USE qth: PARAMETERS SET UP 
OGRAM OR A PREVIOUSLY RUN DQ11 DIAGNOSTIC 


SI 
s**sREFER TO SECTION 4.1 FOR SOFTWARE SWITCH REGISTER OPERATION 
TIONS, **«« 


AND OP 
NOTE:THE SOFTWARE SWITCH REGISTER IS LOCATED AT LOC.176 
SOFTWARE DISPLAY REGISTER IS LOCATED AT LOC.174 


C. THEN START 

THE PROGRAM WILL TYPE MAINDEC NAME AND PROGRAM NAME 

IF THIS WAS THE FIRST START UP OF THE PROGRAM) AND ALSO 
THE FOLLOWING: 

* MAP oo STATUS"* 


1400 60010 
1402 =152300 
1404 160020 
1406 150310 


THE ABOVE IS ONLY AN EXAMPLE! 

THIS a INDICATE THE STATUS TABLE STARTING AT ADD. 

1400 IN THE PROGRAM. THE STATUS TABLE MUST BE VERIFIED BY THE 
USER IF AUTO SIZING r. et, — INFORMATION OF STATUS 

TABLE SEE SECTION 8.4 FOR HELP 


*eeeTF THE SOFTWARE ne REGISTER IS SELECTED ay THE FOLLOWING 
WILL BE TYPED AFTER THE PROGRAM IDENTIFIES ITSELF 
SWR=XXXXXX NEW= — (REFER TO SECTION 4.1 FOR OPERATOR'S OPTION) *«*« 
NOTE: IF USING THE SOFTWARE SWITCH REGISTE ARDWARE 
SWITCH REGISTER IS AVAILABLE THE PROGRAM WILL NOT 
TYPE OUT THE TITLE. 
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THE PROGRAM WILL TYPE ‘R°’ 
AND PROCEED TO RUN THE DIAGNOSTIC 


CONTROL SWITCH SETTINGS 


IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH 

REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED WHICH ALLOWS 
THE USER THE SAME SWITCH OPTIONS AS THE Neat a SWITCH REGISTER. 
IF THE cae SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES 
AND IT CONTAINS ALL ONES (177777) THEN THE SOFTWARE SWITCH 
REGISTER wit 176) IS USED. 


CONTROL : 


THIS 


SO SUPPOR™S THE DYNAMIC LOADING OF THE SOFTWARE SWITCH 


PROGRAM AL 
REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE ACCOMPLISHED BY 
DOING THE FOLLOWING: 


1) 


N 
~ 


~ 


3 


TYPE CONTROL G <*G>; THIS WILL ALLOW THE TTY TO ENTER DATA INTO 
LOC. 176 AT SELECTED POINTS WITHIN THE PROGRAM. 


MACHINE WILL THEN TYPE: SWR= a (XXXXXX IS THE OCTAL CONTENTS 
THE SOFTWARE SWITCH REGISTER.) 


AFTER THE °*"NEW="" HAS 7. TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE T 


A) TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A <CR>. 
ot of aia O-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS 
IF A <CR> IS THE FIRST KEY DEPRESSED tes SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED 


IF A CONTROL U <“U> IS DEPRESSED THEN THE PROGRAM WIL! SEND YOU 
BACK TO STEP e. 


5 SET: HALT ON ERROR 

4  SéT: LOOP ON CURRENT TEST 

3 SET: INHIBIT ERROR PRINT OUT 
1 
0 


~ 


B 


SET: INHIBIT TYPE OUT/BELL ON ERROR. 
SET: INHIBIT ITERATIONS 
SET: ESCAPE TO NEXT TEST 

09 SET: LOOP WITH CURRENT DATA 


08 SET: CATCH ERROR AND LOOP ON IT 

07 SET: USE PREVIOUS STATUS TABLE. CLR-DO AUTO SIZE. 
OS SET: 

04 SET 

03 SET 


02 SET: LOCK ON SELECTED TEST 
01 SET: RESTART PROGRAM AT SELECTED TEST 
90 SET: RESELECT DQ11'S DESIRED ACTI,©. 


SEQ 0004 
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4.1.2 SWITCH REGISTER RESTRICTIONS 


Sw 00 RESELECT ot S_DESIRED ACTIVE. 
THAT 


B LOC USING THIS 
SWITCH ALTERS THAT LOCATION; THEREFORE 

IF FOUR DQ11S ARE IN THE SYSTEM 

***DO NOT*** SET SWITCHS GREATER THAN 
Sw 03 IN THE UP POSITION. THIS WOULD BE 
A FATAL ERROR. DO NOT SELECT MORE ACTIVE 
DQ11S THAN HAS BEEN GIVEN INFORMATION 


S 
START WITH Sw QO=1 
PROGRAM WILL TYPE MESSAGE 
CONTINUE THE BINARY NUMBER OF DQ11S DESIRED ACTIVE 
EXAMPLE: 1=1 DQ11; 3=2 DQ11; we A DQ11; 17=4 DQ11 37=5 D 


1 ETC, 
NUMBER (IF VALID) WILL BE IN DATA LIGHTS i 11705. 11/04, 


CONTINUE WITH ANY OTHER SWITCH SETTINGS DESIRED 


IT IS STRONGLY SUGGESTED THAT 

AT LEAST ONE PASS HAS re MADE 
BEFORE TRYING TO SELECT A TEST 

THAT IS NOT IN THE “rr; OF SEQUENCE 
baa 3 REASON BEING IS T THE 


SELECTED ALWAYS START AT THE VERY 
BEGINNING OF THAT TEST. 

LOOP ON CURRENT DATA: 

THIS SWITCH WILL ONLY WORK IF 


NG MOST TESTS 
DEAL WITH BLOCKS OF DIFFERENT DATA 
TO BE SENT OR RECEIVED ALL AT ONCE 
THUS IN BLOCK DATA; ONE PATTERN CANN'T BE SINGLED OUT. 


SWITCH REGISTER PRIORITYS 
ERROR SWITCHES 
DELETE PRINT OUT/BELL ON ERROR. 
DELETE = PRINTOUT. 
HALT ON THE ERROR, 
COTO BEGINNING OF THE TEST. 
GOTO NEXT TEST ON ERROR, 
****Hi T (ERROR) ROUTINE SUPPORTS <*G> OPERATIJON**#* 


SCOPE SWITCHES 


11/34) 
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Sw 09 (IF ENABLED By ‘‘SCOP1"") 
Sw 14 
Sw 11 
x***SCOPE ROUTINE WILL SUPPORT <*G> OPERATION**** 
STARTING ADDRESS 
STARTING ADDRESS IS AT 000200 
THERE ARE NO OTHER STARTING ADDRESSES 
FOR THE DQ11 DIAGNOSTICS PREVIOUSLY MENTIONED 
NOTE: IF ADDRESS 000042 IS NON-ZERO 
THE PROGRAM ASSUMES IT IS UNDER 
ACT11 OR DDP CONTROL AND WILL ACT mee 
AFTER *ALL* AVAILABLE DQ11°S ARE TESTED 
THE PROGRAM WILL RETURN TO 'DDP2"' OR ‘‘ACT=11"". 
OPERATING PROCEDURE 


WHEN PROGRAM IS INITIALLY STARTED MESSAGES AS DESCRIBED IN SECTION 
FOUR WILL BE PRINTED. 


AND PROGRAM WILL BEGIN RUNNING THE 
DIAGNOSTIC 


PROGRAM AND/OR OPERATOR ACTION 
THE TYPICAL APPROACH SHOULD BE 


HALT ON ERROR (VIA SW 15=1) 

WHEN EVER AN ERROR OCCURS 

CLEAR Sw 15 

SET SW 14: (LOOP ON THIS TEST) 

SET SW 13: (INHIBIT ERROR PRINT OUT) 


THE TEST NUMBER AND PC WILL BE TYPED OUT AND 
A ei gl ghar MESSAGE (THIS DEPENDS ON THE ee 


THIS WAY THE EXACT FUNCTIONING OF THE TEST 
CAN BE INTERPEDITED 


ERRORS 


- DESCRIBED PREVIOUSLY THERE WILL ALWAY B87 
TEST NUMBER AND PC TYPED OUT AT THE TIME OF AN 
ERROR (PROVIDING SW 13=0 AND Sw 12=0). IN MOST CASES ADDITIONAL 
INFORMATION WILL BE SUPPLIED THE THE ERROR MESSAGE 
en IS TO GIVE THE OPERATOR AN INDICATION OF THE 


FRROR RECOVERY 
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IF FOR SOME REASON THE DQ11 SHOULD 

“HANG THE BUS'* (GAIN CONTROL OF BUS SO THAT 

CONSOLE MANUAL FUNCTIONS ARE INHIBITED) om INIT 

OR POWER DOWN/UP 7 A NECESSARY FOR OPERATOR 

TO REGAIN Sy 8 ts 

IF THIS SHOULD HAPP’ LOOK IN LOCATION 

“"TSTNO’* (ADDRESS 1 ODGSFOR THE NUMBER OF THE TEST -THAT 
— AT THE TIME OF THE CATASTROPHIC 

IN THIS WAY THE OPERATOR WILL HAVE AN IDEA AS TO 
WHAT THE DQ11 WAS DOING AT THE TIME OF THE ERROR. 


****HALT RECOVERY WHEN USING SOFTWARE SWITCH REGISTER*: ** 
IF THE SOFTWARE SWITCH REGISTER IS TO BE CHANGED AFTER A HALT 


THE THE OPERATOR IS REQUIRED TO TYPE A <*G> BEFORE DEPRESSING CONTINUE. 


THE FOLLOWING WILL BE TYPED: 
SWR=XXXXXX NEW= (REFER TO SECTION 4.1 FOR OPERATOR OPTION) 


RESTRICTIONS 

STARTING RESTRICTIONS 
SEE SECTION 4. (PLEASE) 
OPERATING RESTRICTIONS 


DQ11_ TRIAL PROGRAM MUST BE RUN PRIOR TO THE 

FIRST AND ONLY THE FIRST RUNNING . ANY DQ17 DIAGNOSTIC 
NOTE: IF NO PROGRAM OTHER THAN 

DQ11 DIAGNOSTIC WAS LOADED AFTER D011 TRIAL OR 

IF CORE MEMORY HAS NOT BEEN CHANGED;OR IF THERE 
1S_NO DQ11 CONFIGURATION CHANGES; THE 

DQ11 TRIAL PROGRAM NEED NEVER BE RUN AGAIN 

HOWEVER IF ANY OF THE ABOVE HAVE BEEN VIOLATED 

THE DQ11 TRIAL PROGRAM MUST BE RUN AGAIN 

BEFORE RUNNING THE DIAGNOSTICS 

NOTE: AN ALTERNATIVE TO THE ABOVE IS ATTEMPTING 

oo ME all WHEN PROGRAM IS INITIALLY STARTED 


MISCELLANEOUS 
EXECUTION TIME 
PASS COMPLETE 
WHEN THE DIAGNOSTIC HAS COMPLETED 


A PASS THE FOLLOWING IS AN EXAMPLE 
OF THE PRINT OUT TO BE EXPECTED. 


END PASS AC~8626E-Me CSR: 160000 VEC: 300 PASSES: 000001 ERRORS: 


NOTE: THE NUMBERS FOR CSR AND VEC ARE 
NOT NECESSARILY THE VALUES FOR THE (DEVICE 


000000 
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THEY ARE ONLY FOR THIJS EXAMPLE. 
8.3 TST1 (MINI MONITOR) 


THE VERY FIRST ‘‘TEST’’ (TST1) 

1S *NOT* A TEST OF THE DQ11 HARDWARE 

IT IS A_MINI-MONITOR USED TO CYCLE DQ11 IN THE 
SYSTEM THROUGH THE DIAGNOSTIC. 


KEY LOCATIONS 


RETURN (1214) CONTAINS THE ADDRESS WHERE PROGRAM WILL 
RETURN WHEN ITERATION COUNT IS REACHED 
OR IF LOOP ON TEST IS ASSERTED. 

NEXT (1216) oe per THE ADDRESS OF THE NEXT TEST 


TO PEFORMED. 
TSTNO (1226) CONTAINS THE NUMBER OF THE TEST NOW 
, BEING PEFORMED. 
RUN (13046) THE BIT IN ‘RUN’’ ALWAYS POINTS ONE 
se THE DQ11 CURRENTLY BEING TESTED. 


XAMPLE : 

(RUN) 1304/0000000001000000 
MEANS THAT DQ11 NO.05 IS THE DQ11 NOW 
RUNNING. 

DQCROO~DQCR17 

DQSTOO-DaST17 

(1400)-(1476) 
THESE LOCATIONS CONTAIN THE INFORMATION 
NEEDED TO TEST UP TO 16 (DECIMAL) DQ11S 
SEQUENTIALY. THEY CONTAIN THE CSR,VECTOR 
AND STATUS CONCERNING THE CONF IGURATION 
OF EACH DQ11. 

DOACTV (1500) EACH BIT SET IN THIS LOCATION INDICATES 
og BH, ASSOCIATED DQ11 WILL BE TESTED 


EXAMPLE : 

(DQACTV) 1500/000000000001 1 

MEANS THAT DQ11 NO. 00,01, 02 03, 04 
WILL BE TESTED. 

EXAMPLE : 


L 
(DQACTV) 1500/0000000000010001 
MEANS THAT DQ11 NO. 00,04 
WILL BE TESTED. 
D@CSR (1506) CONTAINS THE RECEIVER CSR OF THE 
CURRENT DQ11 UNDER TEST. 
DOQSTAT (1510) CONTAINS THE gars OF THE CURRENT 
pats UNDER TEST 
15 SET TWO SYNC CHARS/ONE SYNC CHAR 
1 TEST JUMPER INSTALLED/NOT INSTALLED 
1 : BB OPTION INSTALLED/NOT INSTALLED 
1 : BA OPTION INSTALLED/NOT INSTALLED 
1 : ACTIVE ON FIRST NON-SYNC/ACTIVE AFTER NO. OF SYNC 
} OPTION INSTALLCD/NOT INSTALLED 


AB 
ODD VRC/EVEN VRC 
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BIT 00-08 VECTOR "‘A’’ OF DEVICE 
8.5 *** METHOD OF AUTO SIZING *** 
8.5.1 FINDING THE CONTROL STATUS REGISTER. 


WHEN LOOKING FOR THE CSR IT IS NECESSARY TO TAKE CARE 
THAT WHEN A CSR IS FOUND THAT IT IS INDEED A DQ11. THAT 

IS THE METHOD OF MY MADNESS FOR THIS ROUTINE. 

AN ATTEMPT TO CLEAR THE MISC. REGISTER IS TRIED 

IF A TIME-OUT TRAP OCCURES POINTERS ARE UPDATED : 

AND ATTEMPTED AGAIN. IF NO TIME-OUT;: THE RECEIVER "‘ACTIVE BIT"' (BIT 12) 
iS SET AND A *COMPARE* FOR BOTH SYNC1 AND SYNC 2 IS DONE 

AT THE MISC. REGISTER. IF THEY ARE THERE THIS IS 

A DQ11. THE INFORMATION IS STORED AWAY. 


ONE SYNC BIT OR TWO? 


SINCE TOO MUCH HARDWARE MUST BE TURNED ON TO SENSE THE 
PRESENTS OF ONE SYNC OR TWO. THE PROGRAM ASSUMES TWO SYNC 
CHARS. NOTE: THIS ASSUMPTION MAY BE ALTERED AFTER AUTO SIZING 
BY ALTERING BIT 15 IN APPRIOATE DQSTXX: LOCATION. 


‘BB’ OPTION INSTALLED? 


TO SENSE FOR THE ‘®BB’* OPTION THE PROGRAM SELECTS THE 
er eee DET. REGISTER AND THE LOADS IN ALL 1°S; IF 

Y ONE OR COMBINATION OF BITS ARE SET THE BB OPTION 
Is ASSUMED TO EXIST. 


*"AB"’ OPTION INSTALLED? 


TO SENSE FOR THE ‘‘AB'’ OPTION THE PROGRAM SELECTS ‘_ * 
POLYNOMIAL REGISTER AND WRITES ALL 1'S INTO IT; IF AN 
ee ee OF BI TS ARE SET THE AB OPTION IS ASSUMED 


"BA’’ OPTION INSTALLED? 


TO SENSE FOR ‘BA'' OPTION REQUEST TO SEND AND DATA TERMINAL 
READY ARE SET; IF EITHER ONE OR BOTH ARE SET THE PROGRAM 
ASSUMES THE BA OPTION EXISTES 


JUMPER ON END OF CABLE? ***NOTE:CZDQE ONLY*** 


THE PROGRAM CHECKS TO SEE IF EITHER OR BOTH CLEAR TO 
SEND AND CARRIER ARE SET; IF SO THE PROGRAM ASSUMES THE 
TEST JUMPER IS ON THE END OF THE CABLE. 


ACTIVE ON FIRST NON-SYNC? 


SINCE TOO MUCH HARDWARE MUST BE TURNED ON TO SENSE FOR 
WHEN THE DQ11 GOES ACTIVE THE PROGRAM ASSUMES ‘'ACTIVE 

ON FIRST NON-SYNC*’. NOTE: THIS CAN BE CHANGED BY ALTERING 
BIT 11 IN THE APPRIOATE DCSTXX: AFTER AUTC SIZING 
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SET FOR ODD OR EVEN PARITY? 

AS ABOVE TOO MUCH HARDWARE IS NEED TO SENSE WHICH PARITY 
WAS _SELECTED.SO THE PROGRAM ASSEMES ODD PARITY. 

NOTE: THIS. CAN BE CHANGED BY ALTERING BIT 9 IN APPRIO- 
ATE DQSTXX: LOCATION. AFTER AUTO SIZING 


FINDING THE VECTOR. 


THE PROGRAM SETS "PRIMARY DONE"',’"SECONDAY DONE", AND ‘‘INTERUPT ENABLE"’ 
AND LOOKS FOR AN me IF If INTERUPTS IT Is PICKED 

UP AND STORED AWAY. eo: INTERUPT OCCURES THE PROGRAM 

ASSUMES VECTOR =300. THIS PROBLEM WILL BE FIXED IN ONE 

OF THE DIAGNOSTICS AND *AUTO SIZING* SHOULD BE REDONE 70 

GET THE CORRECT VECTOR. 


PROGRAM DESCRIPTION 
CONTAINED WITHIN LISTING 
LISTING 

FOLLOWING 
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;CZDQFEO/<377>/SEQ REG TSTS 
>COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 


a, ap mA BY R. BLACK 
: )SUPPORTS SOFTWARE SWITCH REGISTER 
: 8) SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH REGISTER 


; BY <*G>. 
: STARTING PROCEDURE 


sl 
LOAD ADDRESS 000200 
;PRESS START 
PROGRAM WILL Hh a te entrar te REG TSTS*’ 
[PROGRAM WILL TYPE ‘R’’ TO INDICATE THAT TESTING HAS STARTED 
:Aq THE END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE 
AND THEN RESUME TESTING 


AAA AAAI 
BRAKES 


Ww 
ow 


: SWITCH REGISTER OPTIONS 


SwW15=100000 ON ERROR 

L ON CURRENT TEST 
INHIBIT ERROR TYPEOUT 
DELETE pind hs aie ON ERROR. 
INHIBIT _ITERATIONS 
ESCAPE TO NEXT TEST ON ERROR 

,LOOP WITH CURRENT DATA 

=1,L00P ON ERROR 


=1 
1 
1 
1 
1 
1 
1 
=] 


;LOCK ON TEST SELECT 

-RESTART PROGRAM AT SELECTED TEST 
;RESELECT DQ11 DESIRED ACTIVE 

NOTE: THIS MUST NOT EXCEED ORIGINAL COUNT 
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REGISTER DEFINITIONS 
GENERAL REGISTER 
; GENE 


; GISTER 
PROCESSOR STACK POINTER 
;PROGRAM COUNTER 


LOCATION EQUIVALENCIES 


DSWR= 177570 =; HARDWARE SWITCH REGISTER LOC. 
DLIGHTS=177570 ;HARDWARE DISPLAY REGISTER LOC. 
PS=177776 sPROCESSOR STATUS WORD 
STACK=1200 ;START OF PROCESSOR STACK 


7 INSTRUCTION DEFINITIONS 


PUSH1SP=5746 sDECREMENT PROCESSOR STACK 1 WORD 
: INCREMENT PROCESSOR STACK 1 WORD 
SAVE RO ON STACK 
;RESTORE RO FROM STACK 
sDECREMENT STACK TWICE 
S INCREMENT STACK TWICE 
sBASIC DEFINITION OF ERROR CALL 


4=2 
3=] 
2=4 
i=2 
0=1 


AXAO 
oad aa lh ol 
WhO 


JUMBI T= =40000 
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001000 ODDBIT=1000 
100000 SYNBIT=100000 


3DQ11 SECONDARY REGISTER DEF INATIONS 
sRECEIVER BUS ADDRESS PRIMARY. 
PRIMARY 


; TRANSMITTER WORD COUNT SECONDARY. 


; CHARACTER DETECT REGISTER. 

; SYNC REGISTER. 
MISCELLANEOUS REGISTER. 

; TRANSMITTER MUX REGISTER. 
;SEQUENCE REGISTER. 
sRECEIVER BCC REGISTER. 

; TRANSMITTER BCC REGISTER. 

:POLYNOMIAL REGISTER. 
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; TRAPCATLAER FOR ILLEGAL INTERRUPTS 
; STANDARD INTERRUPT VECTORS 


060000 


000024 . 

014764 -PFAIL :POWER FAIL HANDLER 

000340 340 SERVICE AT LEVEL 7 

014434 «HLT [ERROR HANDLER 
340 SERVICE AT LEVEL 7 
. TRPSRV [GENERAL HANDLER DISPATCH SERVICE 
340 SSERVICE AT LEVEL 7 ’ 


LOGICAL sACT HOOKS 


DO 
: THIS ROUTINE TRIES TO FORCE THE yg TO_INTERUPT 
;TO ITS VECTOR WHERE IT WILL PICK UP THE STATUS LOCATION 
; E ICK UP AN IOT INSTRUCTION FOR ITS 
; . WHEN THE NEW PC _IS FETCHED AN IOT INSTRUCTION IS 
;EXECUTED, TRAPPING TO LOCATION 20 WHERE A ROUTINE IS EXECUTED 
56 >TO TAKE THE PC FROM THE STACK AND US IT AS THE VECTOR ADDRESS 


010120 1$: MOV R1,(RO)+ : START FILLING THE VECTOR AREA 
#4. (R1)+ SWITH .+2; (4) 
(RO)+, (R1)+ ‘UPDATE THE DOINT ERS 
R1,41000 :1S ALL FLOATING VECTOR AREA DONE 
1$ [BR IF NOT ALL DONE 
[SET FOR IOT TRAP BY DQ11 


#4$,a#20 

DQACTV,TEMP1 GET THE ACTIVE DQ11 S$ 

TEMP1 ARE YOU ACTIVE.. DQ11 

5$ s 3F oe CLEAR.. NO MORE DQ11S 


177776 PS SCLEAR P 
(R2)+ :PUT POINTER TO STATUS TABLE 
000340 177776 MOV spire ee ‘DELAY. SET PRI/SEC DONE AND IE 


72 DELAY 
000300 MOVB #300, (R2) 7NO_INTERUPT ASSUME 300 FIX IN TEST C 
(R2)+ : UPDATE POINTERS 
2$ ;GO DO IT AGAIN 
: (SP), (R2) ;ENTERD BY IOT TRAP BY DQ1! 
000007 #7,(R2) : CLEAR UNWANTED BITS 
MP (SP)+, (SP) + ;POP IOT JUNK OFF STACK 
#3$,(S°) [SET RETURN PC ON STACK 


GC HOME. 
5$: PC sALL SIZING IS DONE 
ao SWITCH REGISTER**** 


DISPREG: 0 SOFTWARE DISPLAY REGISTER 
SWREG: 0 [SOFTWARE SWITCH REGISTER 


PROGRAM START 


SEQ 0014 
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BEART R AAS SS LOSE 


Natt 


060137 


001512 


= 


ss $8 8§ 


.=220 


JMP 


CSRMAP : 
C 


START 
#1400,R2 
(R2)+ 
#1512,R2 
r 
#160000, R1 
#5$, 04 

#12.9 RI) 


#10000, (R1) 
#30000,.6(R1) 


R1, (R2)+ 
ry a acai 


(R1) 
#10,5(R1) 
26(R1 


ne -2(R1) 


f (R2) 
#30000; *2(R1) 


##JUMBIT, (R2) 
#ACTBIT, (R2) 
#ODDBIT. (R2) 
(R2)+ 


R1, SAVNUM 


DeArActy 
DQACTY 


:GO TO START OF PROGRAM 


sCLEAR ALL STATUS TABLE 
:DO CLEAR 


ALL TABLE DONE 

;BR_IF MORE TO GO 

;SET NUMBER OF DQ11S TO 0 

SET TABLE POINTER 

GET FIRST FLOATING ADDRESS 

;SET FOR RAP=-NO DEVICE-- 


OR SYNC 1 AND SYNC 2 
STHIS IS NOT A DQ11 IF I BRANCH 
:NOW THIS IS A ot --STORE CSR 


ht INTO CHAR DET REG 
S_THE REGISTER WRITTEN? 
APPER ENTLY NO BB OPTION. 
SET FOR BB OPTION 


7SEL_POLYNO. REGISTER 
[WRITE POL eg 2 — 


; UPDA DQ11S 
;UPDATE CSR POINTER BY 10 


(8) 
HAVE ALL FLOATING ADDRESSES BEEN CHECKED?? 
SBR NOT ALL DONE 


IF L 
:ZERO ACTIVE DQ11S 
[WERE ANY DQ11S 


F OUND 
SHEY BUDDY. NO DQ11S FOUND IN SYSTEM 
SAVE NUMBER OF DQ11S 


SAVE NUMBER FOR ACT11 
‘ene ACTIVE ADDRESS 
‘SET-BIT 
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R1 :DEC NUMBER OF DQ11S 

3$ [BR IF MORE TO GO 

#6, a4 “RESET TIME OUT VECTOR 
DQACTV,SAVACT :SAVE ACTIVE 

#340, a#22 :SET IOT TRAP PRIO: TO 7 
#1400,R2 

#300,R0 
#302.R1 
VE CMAP 


000022 


:GO FIND THE VECTORS 
: TYPE MESSAGE 
3:1 DIDN'T FIND ANY DQ11S. DON'T USE AUTO SIZE. 


;HOW rr I TEST NO DQ11S 
BR “< :DON'T LET OPR HIT CONT. SW 
000466 : . SENTERED BY TIME OUT TRAP 


RO 


-=1000 
055103 050504 : .ASCIZ <377><12>/CZDQFEO/<377>/SEQ REG TSTS/<377> 


042506 
020121 
051524 051524 000377 


001200 
INDIRECT POINTERS 


177570 t 177570 s SWITCH REGISTER POINTER 
DISPLAY REGISTER POINTER 
TELETYPE KEYBOARD CONTROL se 
: TELETYPE KEYBOARD DATA BUFFER 
;TELEPRINTER CONTROL REGISTER 
177566: > TELEPRINTER DATA BUFFER 


sPROGRAM CONTROL PARAMETERS 


SCOPE ADDRESS FOR LOOP ON TEST 

SADDRESS OF NEXT TEST TO BE Pt: as 

ADDRESS FOR LOCK ON CURRENT DAT 

;NUMBER OF ITERATIONS THAT CURRENT TEST WILL BE EXECUTED 
NUMBER OF ITEREATIONS COMPLETED 

NUMBER OF TEST IN PROGRESS 

NUMBER OF PASSES COMPLETED 

TOTAL NUMBER OF ERRORS 

PC OF LAST ERROR CALL 


DOOVOWOO0OO 


PROGRAM VARIABLES 


; TEMPORARY STORAGE 
; TEMPORARY STORAGE 


BDOoooo0o0ng 


; TEMPORARY STORAGE 
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=RO STORAGE 


3R5 STORAGE 
: STACK POINTER STORAGE 
PROGRAM COUNTER STORAGE 


0 
0 
0 
0 
0) 
0 
0 
0 


" BLKW 1 
LG 
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PROGRAM CONTROL FLAGS 
Pike . PROGRAM INITIALIZATION FLAG 
;TEST START FLA 3 


ERROR OCCURED FLAG 
[LOCK ON CURRENT TEST FLAG 


DEFINITIONS FOR TRAP Pt cee ier CALLS 
[POINTERS TO SUBROUTINES CAN BE F 
7 IN THE TABLE IMMEDIATLY FOLLOWING THE DEFINITIONS 


FREER ERE RRR REE ER CREEK EEE REE KKE KEE KK 
FRR ERE RK EER REE RE RE RE RREEREEERERREEEKERERER K K 


;CALL TO SCOPE LOOP AND ITERATION HANDLER 
“ :CALL TO LOOP ON CURRENT DATA HANDLER 
TYPE= “TRAPS? SCALL TELETYPE OUTPUT ROUTINE 


INSTR= rales a" > CALL ASCII STRING INPUT ROUTINE 
INSTER= oe > CALL INPUT ERROR HANDLER 
PARAM=TRAP+5 3 CALL NUMERICAL DATA INPUT ROUTINE 


PARAM 
SAVOS=TRAP +6 5 :CALL TO REGISTER SAVE ROUTINE 


- SAVO 
RESO5=TRAP+7 7 CALL REGISTER RESTORE ROUTINE 


RESOS 
CONVRT= TRAP+ 9 7 CALL DATA OUTPUT ROUTINE 
CNVRT= ayy Od 7 CALL DATA OUTPUT ROUNTINE WITHOUT CR/LF. 


. CNV 
MSTCLR=TAAB YT 7 CALL ISSUE MASTER CLEAR 


P L 
MEMCLR= we 4! A 3 CALL CLEAR ALL SCRATCH PAD MEMORIES 
CKSWR=TRAP+14 CALL TO ALLOW SWREG TO BE LOADED FROM TTY 


. CKSWR 
CNTLU=TRAB #15 3 CALL ALLOW LOADING OF SWREG FROM TTY 
U 


FERRER KERIKERI ERE RRR EERE EAE EE ERE EEEERREREREEE 
FRR RRR EERE RRR REE RE REE ERKEER EERE REE RE Ke 


:DQ11 VECTOR AND REGISTER INDIRECT POINTERS 


DQRVEC: POINTER TO DQ11 RECEIVER INTERRUPT VECTOR 
TO DQ11 RECEIVER INTERRUPT SERVICE PS 
TO DG@1? TRANSMITTER INTERRUPT VECTOR 
TO DQ11 TRANSMITTER INTERRUPT se nvice PS 
; ; TO DQ11 RECEIVER CONTROL REGISTER 
DQRC SH: POINTER TO HIGH BYTE OF DQ11 RECEIVER CONTROL REGISTER 


SEQ 0018 
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ob ee 0 :POINTER TO DQ11 TRANSMITTER CONTROL REGISTER 

0 POINTER TO DQ11 ERROR REGISTER 

0 POINTER TO HIGH BYTE OF ERROR REGISTER 

0 “POINTER TO DQ11 SECONDARY REGISTER 

0 :POINTER TO HIGH BYTE OF DQ11 SECONDARY REGISTER 


:DQ11 STATUS TABLE AND ADDRESS ASSIGNMENTS 


: CONTROL STATUS REGISTER FOR DEVICE NO: 00 

VECTOR AND CONFIGURATION STATUS FOR DEVICE 
: CONTROL STATUS REGISTER t< DEVICE NO: 01 

;VECTOR AND CONF IGURATI TATUS FOR DEVICE 
: CONTROL STATUS REGISTER FOR DEVICE NO: 02 

;VECTOR AND CONFIGURATION STATUS FOR DEVICE 
; CONTROL STATUS REGISTER to DEVICE NO: 03 

;VECTOR AND CONFIGURATION STATUS FOR DEVICE 
;CONTROL STATUS REGISTER FOR DEVICE NO: 
VECTOR AND CONFIGURATION STATUS FOR DEVICE 
: CONTROL STATUS REGISTER FOR DEVICE NO: 05 

CTOR AND CONFIGURATION STATUS FOR DEVICE 
; CONTROL STATUS REGISTER FOR DEVICE NO: 06 

;VECTOR AND CONFIGURATION STATUS FOR DEVICE 
:CONTROL STATUS REGISTER FOR DEVICE NO: 07 
;VECTOR AND CONFIGURATION STATUS FOR DEVICE 
: CONTROL STATUS REGISTER FOR DEVICE NO: 10 

;VECTOR AND CONFIGURATION STATUS FOR DEVICE 
; CONTROL STATUS REGISTER FOR DEVICE NO: 11 

VECTOR AND CONFIGURATION STATUS FOR DEVICE 
>CONTROL STATUS REGISTER FOR DEVICE NO: 12 
VECTOR AND CONFIGURATION STATUS FOR DEVICE 
: CONTROL STATUS REGISTER ". DEVICE NO: 13 

;VECTOR AND CONFIGURATION STATUS FOR DEVICE 
:CONTROL STATUS REGISTER FOR DEVICE NO: 14 
VECTOR AND CONFIGURATION STATUS FOR DEVICE 
+ CONTROL STATUS REGISTER FOR DEVICE NO: 15 

VECTOR AND CONFIGURATION STATUS FOR DEVICE 
CONTROL STATUS REGISTER FOR DEVICE NO: 16 
:VECTOR AND CONFIGURATION STATUS FOR DEVICE 
:CONTROL STATUS REGISTER FOR DEVICE NO: 17 
VECTOR AND CONFIGURATION ane FOR DEVICE 
HOLD ACTIVE BITS FOR TESTI 
; SAVE NUMBER OF ACTIVE bolls” 
SOCTAL NUMBER OF TOTAL NUMBER OD DQi1S 

i ag ;CSR_OF DQ11 UNDER TEST 

DQSTAT: [VECTOR AND CONFIGURATION STATUS OF DQ11 UNDER TEST. 


PROGRAM _ INITIALIZATION 
;LOCK OUT INTERRUPTS 
‘eT UP PROCESSOR STACK 
T UP POWER FAIL VECTOR 
‘CLEAR PROGRAM CONTROL FLAGS AND COUNTS 
TYPE TITLE MESSAGE 


855555585 5EEEES 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
. 
: 
1 
; 
, 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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012737 
012737 


ad ad aad aed at ed wat ceed SS ed 
NSVUS=RFRSS 


sieetoabat 


s 


8 
VN = 
Soo N= 


—— 
NN 

Vy «= 
Vw Ww 


177232 
000220 
015612 
001400 
177252 


000002 


766 
- 000001 


177140 


177776 
000024 
001276 
061300 
001226 
001214 
001200 
001202 
000004 
177326 


001200 
001202 


001244 
001246 


001244 
177160 


001502 


-START: MOV 
MOV 


64$: 
653: 


66$: 


#340,PS 
AMSTACK , SP 
#.PFAIL ,a#24 
DQNUM , SAVNUM 
STFLG 

PASCNT 
ERRFLG 


RUNFLG 

#1400, CREAM 
ERRCNT 

LSTERR 
#1,TSTNO 

#. START ,RE TURN 


#DSWR 
MDLIGHTS. LIGHTS 
a6 ,-(SP) 


ay, --(SP) 
#64$, 046 
#-1,aSWR 
65S" 


66$ 

(SP) +, (SP)+ 
ASWREG, SWR 
#DISPREG, LIGHTS 
(SP) + an 

(SP) +, ‘are 

ase 


LOCK OUT INTERRUPTS 
:SET UP STACK 
SET UP POWER FAIL VECTOR 


: CLEAR Une FLAG 
[CLEAR PASS COUNT 
CLEAR ERROR FLAG 


CLEAR ERROR COUNT 

CLEAR LAST ERROR POINTER 
7SET UP pan TEST 1 

7SET UP FOR POWER FAIL BEFORE 


MOV SWR TO SWR 
[MOV DISPLAY LIGHTS TO LIGHTS 
SAVE VECTORS 


SET UP FOR TIMEOUT 
; REFERENCE HARDWARE SWITCH REGISTER 


sADJUST STACK 

sPOINT TO SOFTWARE SWITCH REG 
:POINT TO SOFT DISPLAY REG 
sRESTORE VECTORS 


; UNDER MONITOR 


BNE 67$ 
_—— . NEXT 4 LINES OF CODE MOVFD TO SOLVE PRA2757 (JUNE 78)*axeex . 
STB INIFLG HAS INITIALIZATION BEEN PERFORMED? 


IF YES, BR 

>TYPE TITLE MESSAGE 
SET FLAG AND INIT 
1S SWREG USED 


INIFLG 
ASWREG, SWR 
67$ 


aSWR 
.+6 

PC, CSRMAP 
»XHEAD 
#1400, TEMP1 
@aTEMP1, TEMP2 
.+16 

#2 la 
#SwO0, aSWR 
1$ 


RO 


@SwR , SAVACT 
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BLOS 11$ 
TYPE 


72 
177120 : @SWR , DQACTV 
001500 DQACTV,RO 


000300 
000302 
(RO) +, (R1)+ 
001000 #1000,R0 
2$ 
: TEST START AND RESTART 
177776 #340,PS ;LOCK OUT INTERRUPTS 
MO ASTACK, SP sSET UP STACK 
Tee 71S PROGRAM UNDER MONITOR CONTROL 


sCHECK FOR <*G> 
177032 + jeamaas ; CHECK FOR LOCK ON TEST 


sse2658 


015432 
000240 013246 
000240 013250 a _ 2 SET UP TO LOCK 


013344 013246 : 
013346 013250 MOV BRX.TTST+2 ;LOCK NOT SELECTED, SET UP FOR NORMAL SCOPE LOOP 
000002 176764 : #SW01 .aSUR :IF SwO1=1, GET STARTING PC 


OONAUSWN—O 


SSSOCOSSSSOSSO 


Oo 
MN 


VIS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


-BYTE 
-BYTE 


BR 4$ 
3$: MO #TST1,RETURN :START AT TEST 1 
4$: a : TYPE R 
oe? ‘t @RE TURN ZSTART TESTING 
* Ctedhheeeenenheneenseesennesnbennnbebeeneneneensensesseneseeesnennes 


TST1: #1,TSTNO 
#T5T2,RETURN 
TST2,NEXT 


o--— 
WMAROM— NINN 


RST TIME HERE? 
SET 


ER, 
F 16 DQ11°S PER SYSTEM 


Sone Bonee 
o-= 
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033737 001304 001500 1$: RUN ,DQACTV ACTIVE 0Q11 7 aha 

1 BNE 3$ ot FOUND ONE TO T 

901500 DOQACTV rf IF THERE = 4 "h011 A ACTIVE. 
e$ ATAL ERROR. AM I HERE IF NO ACTIVE DQ11°S??? 
ALL THE CONDI TION CODES OF CPU 

001304 RUN SUPDAT E RUN POINTER 
000004 AD #4, CREAM [UPDATE ADDRESS POINTER. 
001306 35 — ;DEC NUMBER OF TIMES I LOOKED AT ACTIVE. 


[BR AND KEEP LOOKING. 
000020 3 #16. ,RUNCNT ZSTART RESTORING MY POINTERS. 
001400 #1400, CREAM ;RESTORE ADDRESS POINTER 
000001 001304 #1 ,RUN “RESTORE RUN POINTER. 
1$ [KEEP ON TESTING. 

‘ALLERT OPERATOR OF FATAL ERROR 
NO DQ11 ACTIVE. WHY AM I HERE??? 
-YOU MUST RELOAD DQ11 DIAGNOSTIC! ! 

£ ON CONT. 


SESSSS 


“2 


§ won 


BEFEREREE 


CODES 
RUN : UPDATE ACTIVE 0Q11 FOUND. 
@CREAM,DQCSR [PLACE ADDRESSS OF DQ11 AT DQCSR 
#2, CREAM UPDATE ADDRESS POINTER 
acREAM. DQSTAT PLACE STATUS OF DQ11 AT DQSTAT 
CREAM UPDATE ADDRESS POINTER 
DOcsR. DQRCSR 


DQSTAT, DORVEC 

#177007 ,DORVEC 

DORVEC.DQRLVL  ;GENERATE ADDRESS OF RECEIVER INTERRUPT SERVICE PS 
ZGENERATE ADDRESS OF TRANSMITTER INTERRUPT VECTOR 


-DQTV 
DQTVEC,DQTLVL ;GENERATE ADDRESS OF TRANSMITTER INTERRUPT SERVICE PS 
#2,DOTLVL 


DORCSR,DORCSH 

DQRCSH GENERATE ADDRESS OF HIGH BYTE 

oo batten ,DQTCSR ;GENERATE ADDRESS OF TRANSMITTER CONTROL REGISTER 
DOfCSR, DOERR GENERATE ADDRESS OF ERROR REGISTER 

pocea -DQREG GENERATE ADDRESS OF HIGH BYTE OF ERROR REGISTER 
+} emma: GENERATE ADDRESS OF SECONDARY REGISTER 


DOSEC,,DQSECH GENERATE ADDRESS OF HIGH BYTE 
DQSECH 


ek a Dd ed ed wd Ld ed 


1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 


:THIS IS NOT A TEST!!! 


RRR REE EERE RRR EERE REE ERR ERR 
TST2: MOV #2,TSTNO 
MOV aTsT3, NEXT 
3 THE ORGINAL TEST 2 1S 
SNOW T T 2 OF TAPE DZDQH 
SCOPE 


BSLSSRSSSSSESE 
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3 ig TO SEE IF EVERY CHARACTER FROM 
377 CAN BE DETECTED IN CHARACTER 

DETECT ADDRESS ZERO. 

:NOTE : SWO9=1 WILL FREEZE ON CURRENT DATA. 


* TEST 
ee ee ee 
TST3: MOV #3,TSTNO 
MOV ATST4 NEXT 
MOV #1$, LOCK 
#9881 -DQSTAT og ae | DQ11 HAVE THE ‘BB’ OPTION INSTALLED? 


: Y 
6070 END PASS 
CLEAR ALL THE DQ11 
CLEAR THE CHARACTER SSTORAGE AREA 
SET FOR ERROR PRINTOU 
; SAME. 
;EIGHT BITS FOR EIGHT SHIFTS. 
T NUMBER OF SHIFTS PER CHAR. 
SGET CHAR ADDR. ZERO 
GET RX BA PRI. 
LOAD IT 
;GET RX WC PRI. 
SELECT CHARACTER DET REG 0 


SELECT THE CHARACTER DET DETECTED. 


@DOQREG 

176376 MOV . sl 
@DOREG 
#200, aDQSEC 
@DQRCSH 
DETCAR+1 _ 


SET SINGLE CHARACTER REC AND SET FLAG. 


; COMM 
>SELECT EIGHT Ras. TEST LOOP AND AUTO STEP 
1762 CSR SET RX ACTIVE AND RX GO 
015714 TEMP — CHARAC TER. TO WORKING AREA 
OMB TEMP+1 COMPLIMENT DATA FOR USE ON THE BIT WINDOW 
176260 : ’ IF PREVIOUSLY SET; CLEAR THE BIT WINDOW. 
TEMP SHIFT OUT THE BIT OF DATA. 

STORE CHAR 

CLEAR ALL UNWANTED BITS 

z:PLACE DATA ON THE BIT WINDOW 

CLOCK UP 


[CLOCK DOWN 
ils i aot ko DONE YET 


F NOT 

WAS THE CHARACTER REALLY DETECTED? 

:BR_IF GOOD 
ERROR CHARACTER NOT DETECTED. 

@DGRCSR , TEMP :GET THE RECEIVER CSR. 

#e¢<7400>, TEMP CLEAR ALL BUT THE CHARACTER DET. ADDR. 
;WAS THE CHAR DET. IN ADDR ZERO? 
CHAR NOT DETECTED IN ADDR. ZERO.. 


:IF SWO9=1; THEN GOTO ADDRESS IN ‘LOCK''. 


SEQ 0023 
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003204 105237 013047 INCB DETCAR+1 HAVE I HIT MY LIMIT YET? 
003210 001260 BNE 2s NO RETURN WITH UPDATED CHAR. 
003212 104400 SCOPE :SCOPE TEST 


3 
—_ 


ek cd Dd od od LU 


BELKFRAVLSSBLRARAVLSISVSARAVASSSIFSLAR 


ZS SRN 


TEST THAT CHARACTERS FROM 

2400 TO 177400 CAN BE DETECTED. 

: IN _CHACTER DETECT ADDRESS ZERO. 

:NOTE : SWO9=1 WILL FREEZE ON CURRENT DATA. 


% Py 
5 6VGST & 
SRR EE 


012737 000004 001226 TST4: #4, TSTNO 
#TSTS NEXT 


SET CHAR TO ZERO 
SET FOR ERROR 
SAME 


SET COUNT FOR 16 BIT CHARS 
: @DQREG 7SEL THE RX BA PRI. 
176102 MOV #RXBUFF ,@DQSEC LOAD IT 


@DQREG [SEL THE RX WC PRI. 

176070 MO #200, aDQSEC [LOAD IT 
@DORCSH [GET CHAR ADD ZERO 

176054 #10, aDQREG [GET CHAR ADDRESS 
DETCAR,@DQSEC LOAD THE CHARACTER TO BE DETCETED 
#14, aDQREG :GET THE SEQ REG. 
#B1T12+B1T14,aDOSEC LOAD DBL CHAR AND SET FLAG 
#12,aDQ REG “SEL MISC REG. 
#B1T1+B1T3,aDQSEC ;SET TEST LOOP AND AUTO/STEP 
WBITI2BITO°9 @DORCSR {SET R RX ACTIVE AND GO 
DETCAR, TEMP :GET DATA 
DETCAR,GDCHAR FOR ERR a 
TEMP ‘PREPARE FOR BIT WINDOW 
WBIT7,aDQSEC  :ZERO BIT WINDOW 

[CLEAR CARRY 


ORB =—«*TEMP1 : 
175740 TEMP1,aDQSEC =: PLACE DATA ON BIT WINDOW 
I aDaset THE 


: CLOCK 

aDQSEC DQ11 
R2 SIS ALL THE CHAR DONE? 
4$ BR IF NO 
@DGRCSR :DID THE FLAG SET? 

+4 BR IF YES 
2 ; CHARACTER DET. FLAG NOT SET FOR DBL CHAR, 
@DORCSR, TEMP 3GET THE RECEIVER CSR. 


#*(<7400>, TEMP : CLEAR ALL BUT THE CHARACTER DET. ADDR. 
TEMP WAS THE CHAR DET. IN ADDR ZERO? 


2 was NOT DETECTED IN ADDR. ZERO.. 


SELeGraNss 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


=O 


MN 
=t od 





M 2 
CZDQF_ = MACY11 30A(1052) O7-JUL-78 08:38 PAGE 26 
CZDQFE.P11 09-JUN-78 07:58 PROGRAM INITIALIZATION AND START UP. 


*LOCK* ------- 
003502 104401 SCOP1 z1F SWO9=1; THEN GOTO ADDRESS IN ‘LOCK’’. 
003504 105237 013047 : INCB ~—— DETCAR+1 ZUPDATE THE DATA 
003510 001260 BNE 1$ ALL ? 
003512 104400 SCOPE “SCOPE WHEN ALL DATA DONE. 


OONOUIS 


TEST THAT A CHARACTER CAN 
BE DETECTED IN ALL 16 CHARACTER 
:DETECT ADDRESSES 


ae Ngo 


CONOULWR— 


atlae) 


STEST THAT THE CHARACTER 255 
‘SCAN BE DETECTED IN CHARACTER 
“DETECT ADDRESS 00 


5 YES? 
BO SA RENAE AIR LAME ot EEE 
012737 000005 TST5: MOV #5, TSTNO 
012737 ATST6,NEXT 
000000 ADD 


NON NAN NaN NA peg 


kk kd a a a 8 a ad od ot Ls et 
Ww 
Ww 


_—— 
NAYES 
Ww 


KUNSSS 


;LOAD THE ADDRESS 
:GO AND LOAD THE CHARACTER. 
sSCOPE THIS TEST 


[TEST THAT THE CHARACTER 255 


:CAN BE DETECTED IN CHARAC 
DETECT ADDRESS 01 


: TEST 6 


SERRE KERR EEE EERE REECE 


012737 000006 1226 TST6: #6, TSTNO 
ATST7,NEXT 


#01,ADDR LOAD THE ADDRESS 
PC,CHK.ADD :GO AND LOAD THE CHARACTER. 
:SCOPE THIS TEST 


ER 


[TEST THAT THE CHARACTER 255 
[CAN BE DETECTED IN CHARACTER 
“DETECT ADDRESS 02 


> TEST? 


RARER RRR ERR REE ERE REE REE REE RRR EEE 

TST7: #7,TSTNO 
#T3T10,NEXT 
#02, ADDR ;LOAD THE ADDRESS 
PC,CHK.ADD 7GO AND LOAD THE CHARACTER. 

;SCOPE THIS TEST 


STEST THAT THE CHARACTER 255 
[CAN BE DETECTED IN CHARACTER 
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29% 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 


Ss) 


WININNNWNNNWWW5 
ed Od ad hd ed od ed 
WO OO NOU SWMH—-00 


N 


001226 
001216 
013042 


N 2 
PROGRAM INITIALIZATION AND START UP. 

:DETECT ADDRESS 03 
: TEST 10 
eran a ea a imc a ea anee ate 5 raining eT 
TST10: MOV #10,T 

MOV ast) NEXT 

ZLOAD THE ADDRESS 


MOV #03,ADDR 
JSR PC,CHK.ADD :GO AND LOAD THE CHARACTER. 
SCOPE SCOPE THIS TEST 


O7-JUL-78 08:38 PAGE 27 
07:58 


STEST THAT Se y-ye- cm 
[CAN BE DETECT >i CHARACTER 
:DETECT ADDRESS. 04 


TEST 7 


ieetin. tec. 408 Sie Coe Gee ee 


TST11: #11,TSTNO 
#TSTISUNEXT 
#04 ,ADDR ;LOAD THE ADDRESS 
PC,CHK.ADD 7GO AND LOAD THE CHARACTER. 
:SCOPE THIS TEST 


STEST THAT THE CHARACTER 255 
[CAN BE DETECTED IN CHARACTER 
;DETECT ADDRESS 05 


; TEST i2 
FEAR E RRR 
TST12: #12,TSTNO 
#TST13, NEXT 
b ;LOAD THE ADDRESS 
:GO AND LOAD THE CHARACTER. 
> SCOPE THIS TEST 


>TEST THAT THE CHARACTER 255 
CAN BE DETECTED IN CHARACTER 
:DETECT ADDRESS 06 


2 VEST 13 
OIRO II IIIIIIIOIOIOISIOIIUIIIOIIIIOIIOIIIOIUIUIIUIOIIIIIIOIUIUIOI TEI ED i kkk hit 
TST13: #13,TSTNO 
ATST14 NEXT 
#06,ADDR ;LGAD THE ADDRESS 
PC,CHK.ADD ;GO AND LOAD THE CHARACTER. 
;SCOPE THIS TEST 


STEST THAT THE CHARACTER 255 
SCAN BE DETECTED IN CHARACTER 
“DETECT ADDRESS 07 


TEST 14 


LRA ER ERR ERAAE ARERR ERE TERE RA KERR EERE EERE REReReRKeeeeeeeeeeeees 
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1324 003764 012737 000014 001226 TST14: MOV #14, TSTNO 
1325 903093 012737 004014 001216 MOV aistis. NEXT 
1326 004000 012737 9060007 013042 MOV #07,ADDR ;LOAD THE ADDRESS 
1327 004006 004737 004314 JSR PC, CHK.ADD ‘GO AND LOAD THE CHARACTER. 
1328 004012 104400 SCOPE :SCOPE THIS TEST 
1330 
1331 “TEST THAT THE CHARACTER 255 
1332 [CAN BE DETECTED IN CHARACTER 
1333 “DETECT ADDRESS 10 
1334 
1335 ; TEST is 
1336 SRE RRR REE EKER REE KEKE REE REE EERE ERE EREERE KEE EERE EER 
1337 004014 012737 000015 001226 1ST15: MOV #15, TSTNO 
1338 004022 012737 004044 001216 MOV ATST16,NEXT 
1339 004030 012737 000010 013042 MOV #10, ADDR ;LOAD THE ADDRESS 
1340 004036 004737 004314 JSR PC, CHK. ADD ‘GO AND LOAD THE CHARACTER. 
141 004042 104400 SCOPE ‘SCOPE THIS TEST 
1343 : 
1344 :TEST THAT THE CHARACTER 255 
1345 :CAN BE DETECTED IN CHARACTER 
1346 “DETECT ADDRESS 11 
1347 : 
1348 ; TEST 16 
1349 'MAAAAAAAAALAAALALALALAAASLAALASASSSS SAREE EES SSSR SESS EE SERRE S SRS RRS SY 
1350 004044 012737 000016 001226 TST16: MOV #16, TSTNO 
1351 004052 012737 004074 001216 MOV ATST17,NEXT 
1352 004060 012737 000011 013042 MOV #11. ADDR ;LOAD THE ADDRESS 
1353 004066 004737 004314 JSR PC, CHK.ADD *GO AND LOAD THE CHARACTER. 
1394 004072 104400 SCOPE ‘SCOPE THIS TEST 
1356 ? 
1357 :TEST THAT THE CHARACTER 255 
1358 [CAN BE DETECTED IN CHARACTER 
1359 :DETECT ADDRESS 12 
1360 : 
1361 TEST 17 
1362 MASSA SASBESAESAASLZASLSLSSEL ESSE SERS SSR SERS ESE RR SERS ESE ECE SECC REE S OAS SS 
1363 004074 012737 000017 001226 1TST17: MOV #17, TSTNO 
1364 004102 012737 004124 001216 MOV #TST20,.NEXT 
1365 004110 012737 000012 013042 MOV #12,ADDR ;LOAD THE ADDRESS 
1366 004116 004737 004314 JSR PC, CHK.ADD ‘GO AND LOAD THE CHARACTER. 
1367 004122 104400 SCOPE *SCOPE THIS TEST 
1369 ; 
1370 ZTEST THAT THE CHARACTER 255 
1371 ZCAN BE DETECTED IN CHARACTER 
1372 ZDETECT ADDRESS 13 
1373 ; 
1374 ; TEST 20 . 
1375 RERAAEREARAERAAAAAERARARAAAEEEEAEEKEARATAARAARAARKREEAEEARARAEARARARERAEREREREREREE 
1376 004124 012737 000020 001226 TsT20: MOV #20, TSTNO 
1377 004132 012737 004154 001216 MOV atstor. NEXT 
1378 004140 012737 000013 013042 MOV 2 ADDR ZLOAD THE ADDRESS 
1379 004146 004737 004314 JSR aC. CHK. ADD *GO AND LOAD THE CHARACTER. 
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004152 104400 SCOPE SCOPE THIS TEST 


“ag 


SESSSRSSISEREPEES 


[TEST THAT THE CHARACTER 255 
SCAN BE DETECTED IN CHARACTER 
“DETECT ADDRESS 14 


TEST 21 
“RAR EKARAAAAHRERARARAERAAAEEHERERAEHREHHEHHREAARARERERARARAREAEEHREEEEEREEEEE 
$$121: #21, TSTNO 
mo #TST22,.NEXT 
#14, ADDR ZLOAD THE ADDRESS 
PC, CHK. ADD :GO AND LOAD THE CHARACTER. 
:SCOPE THIS TEST 


[TEST THAT THE CHARACTER 255 
7CAN BE DETECTED a CHARACTER 
IDETECT ADDRESS 


rest 52 


= SAPSHHRSHHHSSHHHEHAEAESHHHSSTHEEHHAARHEHSHHRHESHSHHEHREHSHEHHAEHAREAHAAEEEAAAEAE 


$5722: #22,7STNO 


828 


LOAD THE ADDRESS 
LUAD THE CHARACTER, 


7GO AND 
; SCOPE THIS TEST 


TES? THAT THE CHARACTER 255 
ZCAN BE DETECTED IN CHARALTER 
ZDETECT ADDRESS 16 


. rec? Ss 
ae ee 
$5123: MOV #23, 1STNO 

Oy erste. Meat 


zTESY Twat " wry eR 
An GE OF Te <TD ~~ 
eee! WORE SS 


Test 34 
-@eeeeeeeceaee* eoeceeaseeeece *eeeeeeeeer. 2Seoeeeeeeeeeceeeoeeeeeeeeee 
012737 ¥sT26: soy #2~, 757% 
012737 ; ~~, aTs7 lS Nn 
012737 —) ADoe 0 TE ADDRESS 
004737 Sa : ay we onb t TE (CHARACTER. 
‘OPE >S. 0 TeIS TES 


SSN 


Pe RRREE 


WN AW 
> —- 
am 


£56 A, THE GT) REGISTERS. 
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113777 01 175036 MOVB a eee :CDEAR WORK po ae ADDRESS TO BE USED. 
013047 #955.DETCAR®| OAD THE CHARACTER TO ad DETECTED IN WORKING AREA. 
013044 #255 ,GDCHAR LOAD FOR ERROR PRINT 

1$: MOV COUNT .Re EIGHT SHIFTS t- EIGHT ‘eits (NO VRO) 

2s: @DOREG :SEL THE RX BA PRI. 


i SEL Ma RX WC PRI. 


-SET FOR ONE CHAR. 
SELECT THE CHARACTER DET REGISTER 
T THE CHARACTER TO BE DETECTED INTO DQ11 CHAR DET REG 
#14, aDOQREG elect THE SEQUENCE REGISTER. 
wmitiseaitl3, aposeéc SET SINGLE CHAR DET AND SINGLE CHAR DET FLAG SE 
#12, aDOREG 7 SELE T THE MISC REGISTER. 
m0i> aDQSEC ‘Seye flout girs TEST LOOP AND AUTO STEP 
#81112+B1T0,aDOR CSR -SET RX ACTIVE AND R 
015714 DETCAR, TEMP sMOVE T THE CHAR TO BE DET TO WORKING AREA 
TEMP+1- = COMPLEMENT CHAR FOR USE ON BIT WINDOW. 
174704 : WBIT7,a@DQSEC IF BIT WINDOW SET ON LAST PASS CLEAR IT! 
TEMP :SHIET QUT BIT OF DATA. 
V 


CLEAR ALL UNWANTED BITS 
PLACE DATA ON BIT WINDOW. 
;CLOCK UP 
[CLOCK DOWN 
71S CHARACTER DONE YET? 
3$ BR IF NOT DONE 
@DQRCSR 2 WAS +. REALLY DETECTED? 
.+4 F GOOD 


2 [CHARACTER DETECT FAILED. 
174622 MO @DQRCSR, TEMP SGET THE ee CSR. 
170377 #*C<7400>,TEMP :CLEAR ALL BUT CHARACTER DET. ADDR. 
013042 ADDR, TEMP+1 WAS THE CHARACTER REALLY DETECTED 
IN ADDRESS $A 7? 


2 ‘WRONG ADDRESS. 
PC ; 


TEST OF RECEIVER AND TRANSMITTER ‘'SET ‘'T'’ ** 

sTEST OF BIT ONE OF SEQUENCE REGISTER. 

: THIS hy WILL ‘SET T’* AND THEN WILL 

7SEND A CHAR WHICH WILL ‘‘SET DONE CLEAR GO''; IF 

:REALLY_IN TRANSPARENT MODE THE CHAR WILL NOT BE DETECTED 
SAND THE WORD COUNTS WILL GOTO ZERO. 


TEST 25 
ai ae eae Week ects Tt «tet arce ites on tie 
000025 TST25: #25, TSTNO 
004722 MO arate. NEXT 


011024 2$: PC,SET.UP ;SET UP ALL NECESSARY FOR TEST. 
040002 #B1T14+B1T1 -@DOSE C 
CHAR rey SET T 


DBL. 
174546 @DORCSH “SELECT ADD 16 ( 
4°9 ,aDQREG ‘SELECT CHAR BET. ” DOR ESS 
#351%400,aDQSEC LOAD THE CHARACTER. SET DONE CLEAR GO. 


175010 
174776 


SESSS8E88 
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112777 000014 532 MOVB #14, aDQREG sSELECT THE SEQ REGISTER. 
012777 100200 MOV #81115+BIT7,aDQSEC 
;SET FUNCTION. CLEAR GO SET DONE. 

012700 012014 #TXBUF F ,RO ; PREPARE TX BUFFER 
012720 MO (PC) +, (RO) + ;LOAD THE BUFFER WITH DATA 

000 350 : 000,350 TA 
012720 MOV (PCS+, (RO) + :LOAD THE BUFFER WITH DATA 

351 200 51,200 DAT 

011620 JSR P :SET GO BITS FOR RX AND TX: WAIT FOR RX DONE. 
f - 900001 174476 WC PRI. 


3 
000003 174460 MOVB #3, aDQREG 
174456 aDQSEC 
+4 IF 
3 x WC PRI “NOT =0 


:TEST OF RECEIVER "CLEAR ‘'T'' '' 
TEST OF BIT TWO OF SEQUENCE REGISTER. 


MAAASISIAI AI 


ia) — a ts 2 2 2 YH 
VISOCHNANEWUsOD 


:THE TEST THEN CHECKS THAT THE CHARACTER FLAG IS SET 
[WHICH MEANS THAT CHARACTER WAS DETECTED. 


3 . TEST 

Pn A SR NR MOOR IE te SIRI | 
012737 000026 001226 TsT26: #26,TSTNO 

012737 001216 aTST27, NEXT 

004737 PC,SET ;SET UP ALL NECESSARY FOR TEST. 
012777 040002 174422 


VIMY) 
Nm 


NAVAN 
NNMMNNN 
NOURW 


SET FUNCTION: DBL CHAR AND SET T 


DVPVIVAVAV SVS AISI 
BIFARANYSSSH 


KFFFELFRY 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


NOUWU SW -OO 


welrleriTt ,@DQSEC 
105377 he toon 
#10,aD 
935504060 Soosec 
#14,aD0 REG 
012777 
105377 


112777 


012777 


012700 
012720 


350 
012720 
352 
004737 


012014 


351 


355 
011620 


SSELECT CHAR ADDRESS 16 (8) 
SELECT CHAR DET ADDRESS. 
;LOAD CHARACTER 

SELECT THE SEQ REGISTER. 


#81T14+BIT2 ,aDQseéc 


@DQRC SH 


#10, aDQREG 
#355%400, @DQSEC : 


SET FOR DBL CHAR AND CLEAR T 

ZGET NEXT ADDR 

:GET NEXT ADDRESS 

SELECT CHAR DET ADDRESS 
HARACTER. 


LOAD C 
‘SELECT THE SEQ REGISTER. 


#8iT15+B1113, aDOSEC 


#TXBUFF ,RO 
(PC)+. (RO)+ 
350,351 
(PC)+, (RO)+ 
35>, 355 


PC” ENABLE 


SDATA 
[SET GO BITS FOR RX AND TX; 


SET FOR SINGLE CHAR AND SET FLAG. 
GET POINTER 
io THE BUFFER WITH DATA 


[LOAD THE BUFFER WITH DATA 





wAT’ FOR Rx DONE. 
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005060 005777 174274 TST a@DORCSR CHECK CHAR DET FLAG 
005064 100401 BM] +4 


BR IS SET 
005066 104004 HLT 4 ; CHARACTER DET _ NOT SET 
005070 104400 SCOPE :SCOPE THIS TEST 


TEST OF RECEIVER AND TRANSMITTER HA ae START"" 
;TEST OF BIT THREE OF bo veel REGISTE 
;THE TEST STARTS UP THE TRANSMITTER AND’ RECEIVER BCC 


if B. 
:AND_ SHIFTED LOOKING FOR THAT ONE CHARACTER TO BE PRESENT 
IN THE BCC OF EACH RX AND TX BCC REGISTER. 


TEST 27 


SORE REE ERREREEREEEREREEREEEREREEERREREEEEEEREKREEEREEERERKE ERE EE 


012737 000027 001226 TsST27: #27, TSTNO 


001216 MOV #IST30, NEXT 
PC,SET.UP SET UP ALi NECESSARY FOR TEST. 
174252 wait 1538113, apdaséc 
SET SNGL CHAR AND BCC/START CLEAR 
174242 #17 ,aDQREG SSEL THE POLY REG. 
#200, aDQSEC SET FOR LRC 8 
:SEL THE TX WC PRI. 
174222 MO = SET FOR 202 (8) 
012014 TXBUF F ,RO GET TX BUFFER 
: (RO) + [CLEAR Pile _ VHE TX BUFFER 
012215 ATXBUFF+201,R0 :ALL CLEAR 
1$ ;BR_IF NO 


012014 #TXBUFF ,RO [GET TX BUFFER 
(PC) +, (RO)+ ‘LOAD THE BUFFER WITH DATA 
350,225 “DATA 
#225, CHAR : EXPECTED BCC CHAR. 
8. , COUNT “SET FOR 8 BITS 
@DOREG SSEL REC PRIMARY 
ARXBUFF ,ADOSEC :SET WITH START ADRS 
a@DORE “SEL REC CHAR COUNT 
CHAR COUNT 
:SEL REC SECONDARY 
“SET WITH SEC ADRS 
L REC’ CHAR COUNT 
T CHAR COUNT 
GO BITS FOR RX AND TX; WAIT FOR RX DONE. 
013040 COUNT ,R3 : CHAR SIZE 


“SHIFT RX BCC IMAGE 
: § RO :PICK UP CARRY 

013036 + CHECK BCC 
3$ BCC OK! 


ZALL SHIFTS DONE? 
BR IF NO. 
) 5 RX BCC HAS WRONG DATA, 
013040 ) (CUNT ,R3 SAVE COUNTER 


OO 


6 
7 
7 
7 
57 
7 
7 


MEW 
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;SHIFT TX BCC IMAGE 
9$: ;PICK UP CARRY 


1 ; 
13036 21S BCC OK? 
5$ 


BR IF OK 
sALL = DONE ? 


TX Bcc HAS WRONG DATA. 
SSCOPE THE TEST 
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STEST OF RECEIVER ‘‘CLEAR ACTIVE'' 

:TEST OF BIT SIX OF SEQUENCE REGISTER. 

STHIS TEST WILL eo, A CHARACTER WHICH SAYS ‘‘CLEAR RX ACTIVE"' 
STHE PROGRAM WAITS FOR TX DONE THEN LOOKS AT RX gtk 


:FOR RX GO TO BE 
ZALSO THE RX WC PRI SHOULD BE NOT EQUAL TO ZERO. 


TEST 30 
RRR EERE RRR EAR REE ERE RARER ARERR EERE EERE AREER EERE REE RARE 
001226 TST30: #30, TSTNO 
001216 aisi5i NEXT 
:SET UP ALL NECESSARY FOR TEST. 


PC,SET.UP 
173774 Moi TissBIT6, aposéc 
:SET SNGL CHAR AND CLEAR ACTV 
012016 #350, TXBUFF+2  :SET DATA IN TX BUFFER 
PC,X. ‘GO AND WORK THE DQ11 
001220 #i$, Lock ‘SET FOR RETURN IF SwWO9=1 
: PC,EXT.UP ‘SET THING UP FOR DOUBLE CHAR. (16 BITS) 
173742 WBIT14+BIT6, apaséC 
SET DBL CHAR AND CLEAR ACTV 


012426 #3721,XTXBUF+2 LOAD THE DATA 
PC,X.ABG ;WORK DG11 ’ 


z1F SWO9=1; THEN GOTO ADDRESS IN ‘LOCK"’. 


= SCOPE THIS TEST 
X.ABG: @DORCSR x GO. 
l a@DQTCSR : GO 
a@DQTCSR HANG HERE FOR TX PRI DONE?! 
-4 ;BR_ IF NOT DONE. 
(SP), (SP) WAIST TIME! 
173664 weiri2. -@DQRCSR 21S - ala CLEARED? 


6 “RX gL NOT CLEARED 
173662 MOVB #1 ,@DQREG GET THE RX WC PRI. 

aDOSEC 317 SHOULD BE NON-ZERO! : 

-*4 SBR IF OK 

6 zRX PRI WC =0 
173634 OP! APE :G0 SHOUL D BE SET AND DONE NPT SET. 
a® 


BR IF OK! 
5. = LOW BYTE RXCSR NOT =001 


= 
RARAAAAO 
ed ad cael aed od aed ae eel 
OWONAUIES WI 


8 


ee ee ae “a dd nd wd ot = 4. 
BBKRR 
Swn- 


te 
our 


STEST OF RECEIVER AND TRANSMITTER ‘CLEAR GO/SET DONE"’ 
fihal OF BIT SEVEN OF SEQUENCE REGISTER 

HARACTER "SET DONE/CLEAR GO’ IS SENT AND IS DETCETED 
‘BY BOTH THE TX AND RX. WHEN RX DONE SETS; THE PROGRAM 
VERIFIES THAT BOTH THE TX AND RX WC (PRI) ARE NOT 
‘EQUAL TO ZERO AND THAT PRI DONE SET,GO IS CLEARED, 
SAND PRI/SEC BIT IS CLEARED. 


TEST $1 


sReewraeeeeneeasenananKeereseteeaneanRaaeenaaenaaaerenaraaseaaneeeees 
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012737 000031 001226 TST31: #31,TSTNO 
012737 ‘Ete 6 001216 MO *IStS3. NEXT 
004737 ;SET UP ALL NECESSARY FOR TEST. 


PC,SET.UP 
012777 00206 173612 #B1T15+B1T7, apasé¢ 
ZSET SNGL CHAR AND SET DONE CLEAR GO 


012700 MTXBUFF+2,RO = SET TX BUFF 
012710 MOV (PC) +, (ROS ‘LOAD WITH DATA 
350 52 f 350, 3$2 “DATA 

004737 005640 x. ABF SWORK DQ11 

012737 001220 nis LOCK :SET FOR RETURN IF SWO9=1 

004737 0 : PC,EXT.UP >SET THING UP FOR DOUBLE CHAR. (16 BITS) 

012777 040200 173556 #BIT144B117, apasé Cc 
SET DBL CHAR AND SET DONE CLEAR GO 


012737 012426 #3721,XTXBUF+2 =LOAD DATA 
012430 #12525, XTXBUF+4 = SAME 
PC,X.ABF ‘TURN ON DQ11 


*LOCK* ------------- 
;1F SwO9=1; THEN GOTO ADDRESS IN ‘LOCK"*. 
;SCOPE THIS TEST. 


‘ ¢ PC ,ENABL sSET GO =. FOR RX AND TX; WAIT FOR RX DONE. 
173516 #1, aDQREG :SEL RX WC PRI 
aDQSEC :1T SB NON-ZERO. 
+4 BR IF OK 
7 :RX PRI WC =0 
173500 MOVB #3, aDQREG 7SEL THE TX WC PRI 
oe wad ‘IT SB NON-ZERO 
a 


BR IF OK. 
TX WC PRI 


7 =0 
173452 MPB #200, aDQRCSR = DONE=1; pres 50; GO=0? 
+4 ‘BR IF Ok. 


7 :zRX CSR NOT =200 (PRI DONE) 
173444 #2090, aDQTCSR :DONE=1; P/S=0; GO=0 
+4 ‘BR IF OK. 


i. :TX PRI DONE SET? (TX CSR=200) 


R39 


TEST OF RECEIVER ‘‘CHARACTER STRIP" 

TEST OF BIT EIGHT OF SECUENCE REGISTER. 

; THE CHARACTER THAT IS SENT AS ‘CHARACTER a. IS 
:LOOKED FOR IN THE RX BUFFER; IF IT IS NOT FOUND | 
71S ASSUMED THAT THE CHARACTER WAS INDEED ‘‘STRIPPED'*. 


TEST %2 
SERA 
001226 1ST32: MOV #32, TSTNO 
001216 MOV #15133,NEXT 
JSR PC, SET.UP ;SET UP ALL NECESSARY FOR TEST. 
173416 MOV Wit i518, aDaseéC 
:SET SNGL CHAR AND CHAR STRIP. 
012016 MOV MTXBUFF+2,RO  :SET POINTER 
MOV (PC)+, (ROS ;LOAD THE 
321 .BYTE 359,301 DAT 
011620 JSR PC ENABLE Se GO BITS FOR RX AND TX; WAIT FOR RX DONE. 


NNNN NN NUN SN SW 
=O SRN 


kk kk a a a ad 2 a sd 2 tt 
NNNNN 
— a So SS 
SOwNAnRWw 


NIN 
Wr 
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1724 12700 012216 ARXBUFF ,RO 
1725 000010 #10.R ) CHARS 
006000 122720 900350 : #350, (RO)+ “WAS THE CHAR STRIPPED? 
BNE +4 ‘BR IF NOT FOUND YET. 
10 ; CHARACTER NOT STRIPPED FROM CORE. 
R1 ADJUST CHAR COUNTER 


BNE 1$ ;ALL DONE? 
001220 #23, Leos :SET FOR RETURN IF SWO9=1 
004737 : PC,EXT.UP SET THING UP FOR DOUBLE CHAR. (16 BITS) 
012777 040400 173336 #81T14+B1T8,aDaseC 
:SET DBL _— AND CHAR STRIP. 
012737 i 012430 #3721, XTXBUF +4 ;LOAD DAT. 


012432 #5672.XTXBUF +6 
PC, ENABLE :SET GO BITS FOR RX AND TX; WAIT FOR RX DONE. 
#RXBUFF ,RO :GET POINTER 
#10,R1 ‘SET CHAR COUNT. 
#3721, (RO)+ ‘CHAR STRIPPED? 
+4 :SO FAR SO GOOD 
SCHARACTER NOT STRIPPED FROM CORE 
TALL DONE 
‘BR IF NO. 


:1F SWO9=1; THEN GOTO ADDRESS IN ‘*LOCK’’. 


RAEN 


NNN WSN NNN SN ONSJ “IN 
RESRASAS ARIS 


TEST OF ‘TRANS PAD"’ 

TEST OF BIT TEN OF SEQUENCE REGISTER 

; THE - CHARACTER IS SENT IN THE MIDDLE OF THE MESSAGE 
AND THE PROGRAM VERIFIES THAT THE PAD WASN'T INSERTED 
IN THE MIDDLE OF THE RX BUFFER. 


: TEST $3 


im we wea ee 


012737 7 901226 1ST33: #33,7 


STNO 
001216 mISE 3, NEXT 
SET .UP SET UP ALL NECESSARY FOR TEST. 
173240 waiti5sB1T10, aDoseC 
SET SNGL CHAR AND TX PAD 


MTXBUFF+2,RO LOAD THE 

(PC) +, (ROS ; DATA 

350,101 INTO THE TX BUFFER 

PC, ENABLE ‘SET GO BITS FOR RX AND TX: WAIT FOR RX DONE. 
ARXBUF F , RO : TER 


#10,R1 AS T 
#377, (RO)+ “PAD PRESENT? 
re ‘BR 


IF NO 
PAD CHARACTER IS IN BUFFER, 
ALL CHAR DONE ? 


1$ NO 
001220 : SET FOR RETURN IF SwO9=1 
PC,EX SET THING UP FOR DOUBLE CHAR.(16 BITS) 
173160 Pet T1458] 110, apasec 
SET DBL CHAR AND TX PAD 


SRESRRERSE RSS — Y — > 
RENSKERVENVSVSEN RSGR 


SRERERSRSESESS SSES 
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003721 012426 #3721 .XTXBUF+2  ;LOAD DATA 

054321 012430 MOV #54321 .XTXBUF +4 : 

911620 PC, ENABLE ‘SET GO BITS FOR RX AND TX; WAIT FOR RX DONE. 
01221 #RXBUF F RO [GET POINTER 

09) 


_ 


sagazaa | 


R1 ‘GET CHAR COUNTER 
neni, (RO)*  :TX PAD IN BUFFER? 


BR IF NO 
i” PAD CHARACTER IS IN BUFFER. 
R1 ALL CHARS DONE? 
3$ BR IF NC. 


~ 
Oo 
N 


STEST OF ‘BCC vre* 
STEST OF BIT 11 OF SEQUENCE REGISTER 
3" BCC EXCLUDE" 18 EXERCIZED ON ee THE RX AND TX TOGETHER 
: ge 3 THEN A CHARACTER IS EXCLUDED 
OMES UP THE BCC'S OF BOTH 
[THE RX AND TX ARE SHIFTED AROUND TO SEE IF THE 
CHARACTER WAS REALLY EXCLUDED. 


TEST 86 
OALRAABAASASASLSAZAASZSZALALSLAESLSALLES SESE SERS SASS SSE RSE SESE SSCP RESO CEEC SS 
012737 000034 TST34: #34, TSTNO 
006600 MO #TS135, NEXT 
011024 C,SET. SET UP ALL NECESSARY FOR TEST. 
100010 Wit S*BIT3, aposic 
;SET SNGL CHAR AND BCC START CLEAR 
173050 @DORCSH [SEL CHAR ADD 16(8) 
000010 MOVB #10,aD [GET CHAR DET ADDRESS 
#3648400, Spasec [LOAD CHAR. 
#14, aDQREG ‘SEL SEQ REG 
witiseeitit. aDOsEC 
7SET SNGL CHAR AND BCC EXCLUDE 
173020 #17, aDQREG [SEL POLY REG. 
173074 #200, aDQSEC ‘SET LRC 8 
173004 #3, aLOREG *SEL TX WC PRI. 
173000 ‘SET BIG NUMBER 


CPt RE Ra RS Reet 


00 00 00 Co 00 G0 00 C0 00 Co 
oath ca and ath aah end cath a anh ead 


012014 XBUF F ,RO SET POINTER 
: (RO) + 7L 
012215 (awe -RO 


012014 #TXBUFF ,RO 
ay (RO) 


350,107 
#361. TXBUF F +2 
COUNT 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


NO OONAMESW—O 


RVR 


THE TX BUFFER! 
T FOR 8 BITS ¥ a 107 AS THE CHAR IN BCC. 
SEL REC PRIMAR 
7 SET he START " ADRS 
s3e CHAR COUNT 
7 SET CHAR COUNT 
4 ,@DQREG ;SET REC SECONDARY 
ARSBUFF +20, aposet SET WITH SEC ADRS 


3SE 


o-0o-0 +00 322s 


st SDH a ss 
MMM MNT VYUMNINY oie 
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1836 112777 000005 172660 #5 a@DQREG zSEL CHAR COUNT 
1837 172654 #-201,aDQSEC § :SET CHAR COUNT 
1838 004737 4 PC ,NEWENA ‘SET GO BITS FOR RX AND TX; WAIT FOR RX DONE. 
1839 013040 OUNT,R ;SAVE COUNTER 
1840 000241 : 
SSHIFT RX BC IMAGE 
SSAVE CAR 
:BCC or 
[BR IF Ok 
ZALL SHIFTS DONE ? 
“RX bee HAS WRONG DATA. 


:CLEAR CAR 
; SHIFT TX BCC © sae 
CK UP CARR 


“BCC OK? 
‘BR IF OK. 
sALL SHIFTS DONE? 
7 FE NO 
X BCC HAS WRONG DATA. 
‘SCOPE THIS TEST 


SER REREES 


MMW 
Whoo 


RRS 


TEST OF SET TRANSPARENCY FOR TRANSMITTER. 
TEST THAT THE SEQ FUNCTIONS ARE ALLOWED IF 
; THEY ARE PRECEEDED BY *DLE*. 
:THIS, TEST THAT WHEN THE TRANSMITTER FLIPS re PRI TO SEC 
_ BR T’’ IS ASSERTED THAT THE TX SENDS A ‘DLE*’ 


TEST 35 
lt REBAR ae 3 ey a to aN 
000035 001226 TST35: #35, TSTNO 
007054 001216 MO #1ST36,NEXT 
011024 PC,SET.UP ;SET UP ALL NECESSARY FOR TEST. 
040002 172544 #BiT14+B1T1 -@DQSEC 

DBL sin aad cr SET T 


SET 
172530 @DQRCSH [SEL CHAR 
000010 #10, aDOQREG GET CHAR DET REG 
001372 DOSEC,RO : 
(PC) +, (RO) ;LOAD THE REGISTER 
352 : 356,352, ‘WITH THIS DATA 


0000 #14- aDQREG “SEL THE SEQ REG. 
101000 1: waitienis9, apos SEC 


CHAR 
172472 @DQRCSH ‘SEL CHAR ADD 15(8) 
000010 MOVB >GET CHAR a 
[LOAD WITH DAT 
;SEL THE SEQ REGISTER 


,@DQREG 
#81T15+B1T7, aDOSEC 
:SET SNGL CHAR AND SET DONE CLEAR GO 
#3, aDOREG “SEL THE TX WC PRI. 
#~6, aDOSEC ‘SET FOR 6 CHARS 
#7250, TXBUFF+1 =LOAD 
#357_TXBUFF+4 = DATA 


FERES 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Ee 


= 
g 
o 

S823 

por? on Por Pr 
Mr 


— 
8 1°) 
=83 

MMMM NMONMEMOMOW = — POO ga th bye Las) 


AND DLE 


SEREESERE 
S335 S45490 S54 S555 


A 2 4 4 4 3 ss. - 4 4s 2. —) 
-_-0- O-0—-— 0O—- O00 —-— 


Co 
Oo 
— 
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189 b36 000354 012054 We. a60REO sEXIT_T SHOULD SEND DLE TTIS SHOULD SET DONE THEN!! 


000006 : joel TX BA SEC. 
012054 1 MOV #TXBUF F +40, aD0S 
172372 aDOREG LOAD BA AND SEL WC SEC. 
030000 #81T13+B1T12, soil 
ENABLE AND ufxit T 


WRITE 
177770 #-10,aDQSEC TSET SEC. FOR 10(8) C 
011620 PC ENABLE SET GO BITS FOR RX AND rx; WAIT FOR RX DONE. 
000007 172344 MOVB a7. @DQREG 7SEL THE TX WC SEC. 
172342 aDQSEC : SHOULD BE NON-ZERO. 


+4 ;BR I 

3 :TX DID NOT DET ‘SET DONE CLEAR GO’’ 
000001 172326 MOVB #1 ,@DQREG :SEL THE RX WC PRI. 

172324 aDQSEC on a PRI S/B NOT=0 


OK 
RX NOT DET CHAR SET DONE CLEAR GO. 
:SCOPE THE TEST. 


SSSSSE3ZESE EES 


STEST THAT THE Mas EY WILL EXIT T 
[WHEN ENTERED BY ‘'‘SET T 


3; TEST 56 
E.R, ROT OPE 5 AS aeRO TON a 
012737 000036 001226 TST36: V #36, TSTNO 
007260 001216 #7ST37,NEXT 
011024 PC,SET.UP ;SET UP ALL NECESSARY FOR TEST. 
040002 172270 #B1T14+B1T1 -@DOSE C 
‘ CHAR AND S 


DBL 
172254 yy [GET CHAR ADDR 1e(). 
000010 172254 MOVB #10,aD GET CHAR REG. 
#3545400, spasec sl CHARACTER 
#14,aDOQR ;SEL THE SEQ REG. 
172234 Wt s*B117, aDaséc 
SET SNG! CHAR AND-SET DONE CLEAR GO. 
172224 #6, aDQR i TX BA SEC. 
172220 MOV #TXBUF F 520, aDQs 
SEL TX WC SEC. 


a@DQR 
172202 IS #81113+B1T12, aDQERR 
SET WRITE ENABLE e. EXIT T 
177770 172200 -10,aDQSEC 7SET FOR 10((8) C 
000350 012017 #350, TXBUFF+3 LOAD DATA 
000354 012055 #354, Ure ae ce on 
172152 aDaTCsR SET TX GO. 
000100 172144 2 #BIT6,aDQTCSR HANG NERE FOR TX SEC. DONE. 
1$ BR_IF NOT DONE 
172140 MOVB #3, aDQREG :GET TX WC PRI. 
aDQSEC ;I1S IT =0 


ah ed ed ath od od ed a od od 
WOBNAUSWN—-O N 


DODO000O 
MONON 
RAW S 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


000003 
172136 


.+4 


3 
000007 172122 MOVB #7 ,ADQREG 
172120 wr? aad 

- 2* 
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007254 104003 HLT 3 :TX SEC WC S/B NON-ZERO. 
007256 104400 SCOPE SCOPE THIS TEST. 


—— 


ITEST THAT THE RECEIVER al SYNC _IS 
INHIBITED WHEN IN TRANSPARENT MODE. 


: TEST $7 \ 
MARAASAAALAS£LALSALALALALESELELE SESE SESE SECC PSPC PERC P eS eee eee eee eee eee 
000037 001226 TST37: 
007470 001216 
011024 PC, SET.UP :SET UP ALL NECESSARY FOR TEST. 
040002 172064 #81T14+B1T1,aDasec 
;SET DBL CHAR AND SET T 
172050 “SEL CHAR ADD 16(8) 
000010 172050 MOVB 310 SDOREG SEL CHAR REG 
001372 DOSEC,RO 
MOV (PC) +. (RO) :LOAD THE CHAR 
101 : 101,161 DA 
000014 172032 MOVB #14. aDQREG EL THE SEQ REG ° 
101000 172026 #B1T15+BIT9, aDOQSEC 


SET SNGL CHAR AND DLE 
000350 012015 #350, TXBUF F +1 OAD BUFFER 
012016 : 

000101 : :DLE 

000026 MOVB & 7 SYNC 

012026 #TXBUFF +12, RO =; KEEP STUFFING 

000003 171756 MOV #3, aDQRCSR SET STRIP SYNC AND GO(RX) 
171756 @DQTCSR SET TX GO 

171746 a@DQRCSR HANG HERE FOR RX DONE (P) 


74 ; 
012216 #RXBUF F ,RO asf RX POINTER 
000000 aa FIRST CHAR S/B=0 
.* 


3 “FIRST DATA CHAR WRONG 
000350 -* eameate :NEXT CHAR S/B=350 
.+ 


3 “RX BUFFER WRONG 
000101 Q s+ i cateaeel :DLE PRESENT? 
+ : 


3 ‘DLE NOT THERE 
000026 MPB #26, (RO)* ;SYNC PRESENT? 
+ 


3 :LOOKS LIKE SYNC STRIPPED? 
012226 ~ eae tee ;BUF iy DONE ? 


‘SCOPE THIS TEST 


Bt Ah Sat eet SRE ey aN an » 


oe ed ed 2d 8) od 8“ 2) 2) od) 2) SS a) tS 2 os I I SY 


SSssR 


NNN 
AIAS 
a Se IO 


MMMM POM ROWRUW fo 
4 “N N 


1974 
1975 
1976 
1977 


SEES RS RULES tt det deol 


‘VERIFY THAT BIT 8 OF THE SEQUENCE 
“REGISTER STRIPS CHARS FROM CORE BUT NOT 
“FROM THE &(C. 
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; TEST 40 
SAREE IUIOI II IOUS ISIS ISIS IOIOIOIIOIUIOIIOIOIUIUIIUINOIU IE ii tttt 
TST40: V #40, TSTNO 

aTstat i 


PC,S -SET UP ALL NECESSARY FOR TEST. 
Wit Sebi T3, apaséc 


SET BCC START CLEAR AND SNGL CHAR 
Fie soon [SEL CHAR ADD 16(8) 


SEL CHAR REG 
foa5400, soasec -LOAD CHAR 
#14, aDQR ‘SEL THE SEQ REG 


wit s+B1T8, aDQs EC 
SET SNGL CHAR AND CHAR STRIP. 
012014 #TXBUFF ,RO GET TX POINTER 


: (RO) + 
012215 ’ manic a -RO 


#350, TXBUFF +1 
#225 TXBUF F +3 
@DQREG 
4206" @DQSEC 
#8. COUNT : 8 BIT CHAR 
#225, CHAR “SET EXPECTED BCC CHAR 
#3, ADOREG “SEL THE TX WC PRI. 
#-202 ,aDQSEC BIG 
@DOREG REC PRIMARY 


WITH START ADRS 
L REC CHAR CNT 
CHAR 


L REC SECONDAR 
; SET WITH SEC ADRS 
HAR COUNT 


T CHAR COUNT 
:SET GO BITS FOR RX AND TX; WAIT FOR RX DONE. 
; SAVE COUNT 
SHIFT RX BCC IMAGE 


SAVE CARRY 
[GOOD BCC? 


3BR IF YES 
ALL SHIFTS DONE? 
IF NO 


“RX BCC WRONG! ! 
GET RX BUFFER 
; CHAR STRIPPED 


13 :8 BIT CHAR NOT STRIPPED. 
#RXBUFF+10,R1 ALL DONE? 
7$ :NOT YET 


PEPER ER EEL Hit 


p= PP fe 
CONAUESWR—O 


$ 
oO 


TEST OF BCC TEST/ APPEND 
sTEST OF * BCC*S TESTED/APPENDED 
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; TEST 41 
2061 rel tle pang ar ta i atl a a 
2062 V #41,TSTNO 
2063 #TST42,NEXT 
§ #811154B115+B1T4,FUNCT. 
2065 3 #000,XPOLY :SET EXTENDED POLY. 
2066 #255 .POLY ‘SET 00-15 POLY 
2067 010040 PC,BCC.TA [GOTO SUBROUTINE 
2068 01004 @DOERR.ERR ‘1S THE AN ERROR CONDITION? 
2069 100001 BP +4 [BR IF NC ERRORS 
70 4 15 [THE DQ11 ERROR FLAG IS SET!! 
2071 SSCOPE THIS TEST 
2073 :TEST OF BCC TEST/ APPEND 
207% [TEST OF 2 BCC'S TESTED/APPENDED 
2076 ; TEST 42 
2077 SRE RRR REE RR ERR ERE EKER EEK EERE EE ERE KE EKER EER 
20 000042 TST42: #42, TSTNO 
2079 010066 16 #TST43,NEXT 
100020 022 #B1T15+B174, FUNCT. 

2081 010 737 000000 POLY :SET EXTENDED POLY. 

1 #112001 BOL Y :SET 00-15 POLY 
PC,BCC.TA :GOTO SUBROUTINE 
@DOERR.ERR SIS THE AN ERROR CONDITION? 
+6 ‘BR IF NO ERRORS 

:THE DQ11 ERROR FLAG IS SET!! 
‘SCOPE THIS TEST 


TEST OF BCC TEST/ APPEND 
TEST OF 3 BCC'S TESTED/APPENDED 


; TEST 43 
FREER RRR 
001226 [ST43: #43,TSTNO 
6 ATST44,NEXT 
#B1T15B115, FUNCT. 
#225,XPOLY ;SET EXTENDED POLY. 
013032 4112001, “POLY 5 POLY 
PC ,BCC.T 
013030 aDOERR, ERR 


; ERRORS 
is” [THE DQ11 ERROR A es IS SeT?! 
[SCOPE THIS TES 


2082 
2084 
2086 
2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2078 


010 
010 
016 
010 
010 
010 
010 
019 
010 
010 


td ad aad ed ed ed 
jelelelele) 
at ad ab ad od 


$ 
g 


mororont 
— 3 2 
SSCs 
wr 
Noes 
—} od 
reo 
~~ E> 
_ 
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2104 

2105 

$98 sMULTIPLE FUNCTION! !!! 

2108 [FUNCTIONS EXERCISED 

2109 START CHAR (350) 

2110 315 L_ CHAR MATCH 

2111 314 DBL CHAR MATCH 

2112 213 SNGL CHAR FLAG 

2113 i12 DBL _CHAR FLG 

2114 308 RX STRIP 

2115 303 BCC_START CLEAR 

$118 :01 RX/TX TRANS 

2118 END CHAR (225) 

2119 315 SNGL CHAR MATCH 

2120 ar, SNGL_CHAR FLAG 

2121 308 RX STRIP 

2122 307 CLEAR GO/SET DONE 

2123 : BCC TEST /APPEND (3 BCC'S) 


. 
“oo 
mown 


CLR RX TRANS 


DLE STRIP/ADD (20) 
315 SNGL CHAR MATCH 


NoMonony 
ed ed ced eed 
NMononony 
NOUS 


2128 3:09 DLE STRIP/ADD 

2129 

2130 

2131 

2132 

2133 ; TEST 44 

2134 FARRER ERR RRR RE REE RE RRR EERE EEE EERE ERE REE KKK KKK 
2135 010214 012737 000044 001226 TST44: MOV #44, TSTNO 

2136 010222 012737 013050 001216 MOV #.FOP,NEXT 

2137 010230 004737 011024 JSR PC, SET.UP ;SET UP ALL NECESSARY FOR TEST. 
2138 010234 012777 170412 171130 MOV #170412,aDQSEC LOAD THE SEQ FUNCTIONS 
2139 010242 105377 171114 DECB  a@DQRCSH =GET CHAR ADD 16(8) 
2140 010246 112777 000010 171114 MOVB #10, aDQREG ‘GET CHAR REG. 

2141 010254 012777 112400 171116 MOV #2254400, @DQSEC :LOAD CHAR. 

2142 010262 112777 000014 171100 MOVB  #14-.aDQREG SSEL SEQ REG 

2143 010270 012777 1206’ *71074 MOV m1 20066, @DQSEC LOAD SEQ FUNCTIONS 
2144 010276 105377 171060 DECB : 

2145 010302 112777 000010 171060 MOVB SS OREG SSEL CHAR DET 

2146 010310 012777 010020 171054 MOV m0, @DQSEC LOAD FUNCTIONS ‘ 
2147 010316 112777 000014 171044 MOVB #14 @DOREG SEL SEQ REG 

2148 010324 012777 101000 171040 MOV #101000, aDQSEC LOAD DLE (20) 

2149 010332 112777 171030 MOVB #6, aDOQREG : TX SEC ADRS 

2150 010340 012777 012064 171024 MOV #TXBUF F +50, aDQSEC 7SET SEC ADRS 
2151 010346 112777 1 171014 MOVB #1, aDOREG 7SEL REC’ PRI SHAR CNT 
2152 010354 012777 177600 171010 MOV #-200,aDQSEC :SET CHAR CNT 

2153 010362 112777 000067 171000 MOVB #67, aDQREG SSEL TXSEC CHAR CNT 
2154 010370 012777 177776 170774 MOV #~2 aDQSEC *SET CHAR CNT 

2155 010376 112777 000017 170764 MOVB #17. aDQREG >SEL POLY REG 

2156 010404 012777 172516 170760 MOV #172516,aDQSEC :SET *WILD* POLYNOMIAL 
2157 010412 112777 000012 170750 MOVB #12, aDQREG SEL THE MISC REG 
2158 010420 052777 000100 170744 BIS #e1T6, @DQSEC  :SET THE ‘EXT POLY'' BIT 
2159 010426 112777 000017 170734 MOVB 7 ,aDOREG S WRITE MBoLY 16-23 
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012777 000275 170730 #275. aDQsEC 

012700 012014 ATXBUFF ,RO “GET POINTER 

012720 ea MOV (PC) $4 (RO)+ : LOAD THE BUFFER WITH DATA 
012720 we MOV Ors (RO)+ Ay D THE BUFFER WITH DATA 
012720 MO GPcS's (ROD tL AD THE BUFFER WITH DATA 


201 07,2 : 
(PC)+, (RO) + : THE BUFFER WITH DATA 

251 , 371,251 “DATA 

012064 MO ATXBUFF+50,RO  =LGAD RO 
MOV (PC)+.(RO)+ :LOAD BUFFER WITH DATA 

377 ' 225,377 DAT 
011620 ‘Ser GO BITS FOR RX AND TX; WAIT FOR RX DONE. 
170652 aD ‘DID A RX CHAR FLAG SET? 


IF YES 
> CHAR _DET FLAG NOT SET. 
ORS? 


21 


a os oo 
HIISSELBSPARES m 


ronoNoNoNoNnoNonofnornenorfy 


14 
170650 013030 sr? actin 
+ 


: NO ERRORS 

17 :DQ11 ERROR FLAG SET! 

000200 170626 MPB #200 @DQRCSR : DONE (P)=1 : P/S=0; GO=0? 
o™ 


14 RX CSR re DATA 
000300 170620 MPB O* eens: [DONE (P)=1; P/S=0; GO=0? 
+ 


7YES 
14 3 TX CSR WRONG DATA 
000001 170612 #1 ,aDQREG 7GET RX WC PRI. 
—* :S/B NOT=0 
o 


:BR IF OK 
14 zRX WC PRI S/B NON-ZERO! ! 
170574 #3, aDQREG ;SEL THE TX WC PRI. 
wert Nee 7S/B =0 
»* : 


14 [TX WC PRI S/B NON-ZERO 

#RXBUFF ,RO *GET RX BUFFER POINTER 

#10,R2 ‘SET CHAR COUNT 

#550, (RO) SARE THE TWO CHARS STRIPPED? 
+ . 


14 ‘CHAR ''350'' NOT STRIPPED FROM CORE 
a (RO) + : 


"'225'* NOT STRIPPED 
#20, (RO) + ataN DLE STRIPPED? 


3} sDLE STUCK == REFER TO M7817 ECO 
CHECK E84 ONE-SHOT 
R2 sALL DONE? 


1$ 2NO 
; SCOPE THE TEST 
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2209 
221) 
2211 -MEMCLR: 
0652 105077 170512 CLRB @DQREG 
0 #16.,R5 
170500 1$: 1SB #B1T4 ,aDQREG 
170472 #140, aDQREG 
C aDQSEC 


@DOQREG 

R5 

1$ 

@DQREG 

ag 

MO #16.,R5 

170434 2%: #10, aDQREG 

a@DQSEC 
170422 #14 ,aDQREG 

asec 


@DORCSH 
R5 


rnronw 


Mr 

Rononononany 
ad aed aad aed ad ed 
NOUS WI 


2$ 
C @DQRCSH 
-MSTCLR: 


777 4 A#MISC. ,@DQREG 
777 ~=000 MO #B1TS ,aDQSEC 


AMISC. ,aDQREG 
#B1TS ,aDQSEC 


:CLEAR ALL THE DQ11 REGISTERS 
;PREPARE TO CLEAR THE TX BUFFER 
;GET THE BUFFERS ADDRESS 

[START CLEARING 

ALL CLEAR? 

;BR IF NOT 


PEERS 


SSeS 


SFESNRSVOMSROVSORN 


01 
01 
01 
01 
01 
01 
01 
01 
01 
C1 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 


ll all lh el til bl anit el aad sally ceils 
SSLESKOU SSL 


170314 
170302 


012012 


012012 
170244 


170232 
170222 
170216 


170204 
001510 


@DQREG 
#RXBUF F , aDQSEC 
@DQREG 
#-10, aDQSEC 
@DOREG 
DOSTAT 

10$ 
#377 ,SYNC 
20$ 
#26,SYNC 
#SiNC,@DQSEC 
@DQREG 
#-12, aD0SEC 
#11, aDQREG 

- SYNC ,@DQSEC 
apo REG 


#900, aDQSEC 
#JUMBIT ,DQSTAT 


DONE . 
oy THE a BA PRI. 
D RX BA PRI. 


:ONE SYNC CHARACTER? 

:1F NO, BR. 

SET MARK. 
; CONTINUE. 

RESTORE SYNC CHARACTER, 


SET ADDRESS 

>SEL THE TX WC andl 

7SET FOR 8. CHARS AND 2 SYNC'S 
7SEL THE SYNC “ee 

[LOAD WITH SYN 

SELECT THE MISC REGISTER 


:SeT FOR EIGHT 


iF TEST JUMPER AT END OF (ABLE; 
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2265 011174 001003 BNE .+10 :RUN DATA THROUGH IT 
2266 011176 052777 000010 170166 BIS #B1T3, aDQSEC NO TEST JUMPER; SET TEST LOOP 
2267 011204 112777 900017 170150 MOVB ai abaR¢ SH Cer LAST CHAR DET ADDRESS. 
5368 011212 112777 000010 170150 MOVB ‘SEL CHAR DET REGISTER 
2269 011220 012777 164000 170144 MOV ass0s000, s00seC ‘LOAD THE CHARACTER 
3270 011226 112777 000014 170134 MOVB 4#14,aDQR ‘GET THE SEQ REGISTER 
2271 011234 20 RTS PC “LEAVE ROUTINE POINTING TO SEQ REGISTER. 
2e72 011236 EXT.UP: 
2273 011236 «104413 MEMCLR :CLEAR ALL THE DQ11 
2274 011240 012702 900020 MOV #20,R2 “PREPARE TO CLEAR THE TX BUFFER 
2275 011244 012700 012624 MOV #XTXBUF ,RO ‘GET THE TX BUFFER ADDRESS. 
2276 011250 005020 CLR (RO) + ‘START CLEARING 
2277 011252 005302 DEC R2 * DONE ? 
2278 011254 001375 BNE <4 ‘BR IF NO 
2279 011256 005737 007510 TST DQSTAT sONE SYNC CHARACTER? 2 SOE 
2280 011262 100404 BMI 10$ 7IF NO, BR. TiteE 
2281 011264 012737 177777 012420 MOV #-1,XSYNC ‘SET MARK. Sp +E 
2282 011272 000403 BR 0$ * CONT INUE . Titte 
2283 011274 012737 013026 012420 10$: MOV #13026, XSYNC :LOAD SYNCS Titte 
2284 011302 012737 013026 012422 20$: MOV #13026.XSYNC2  :DITTO Titte 
2285 011310 105077 170054 CLRB  @DQREG ‘SEL THE RX BA PRI. 
2286 011314 012777 012216 170050 MOV ARXBUFF,@DOSEC LOAD THE ADDRESS 
2287 011322 105277 170042 INCB — @DQREG “SEL THE RX WC PRI. 
2288 011326 012777 177770 170036 MOV #-10, aDQSEC “SET FOR TEN CHARS 
2289 011334 105277 170030 INCB = a@DQR ‘SEL THE TX BA PRI. 
2290 011340 012777 012420 170024 MOV #XSYNC,@DQSEC :LOAD THE ADDRESS. 
2291 011346 105277 170016 INCB = @DQREG “SEL THE TX WC PRI. 
2292 011352 012777 177766 170012 MOV #-12, aDQSEC ‘SET FOR TwO SYNC AND 8. CHARS 
2293 011360 112777 000011 170002 MOVB #11, a@DQREG “SEL THE SYNC REGISTER 
2294 011366 013777 012010 167776 MOV . SYNC , @DQSEC ‘LOAD SYNC 
2295 011374 105277 167770 INCB  @DOREG ;SEL THE MISC REGISTER. 
2296 011400 005077 167766 CLR aDQSEC SEL 16 BITS PER CHAR. 
2297 011404 032737 040000 001510 BIT wUBIT, DOSTAT tTF TEST JUMPER INSTALLED; 
2 011412 001003 BNE +10 ‘RUN DATA THROUGH CABLE. 
2299 011414 052777 000010 167750 BIS #13, @DQSEC § :NO JUMPER; SET TEST LOOP! 
2 011422 112777 000017 167732 MOVB “7, @DORCSH “GET LAST CHAR DET ADDRESS 
2301 011430 112777 000010 167732 MOVB #10. aDOQREG “GET CHAR DET REGISTER 
2302 011436 012777 003721 167726 MOV #3751, aDOSEC SLOAD CHARACTER 
2303 011444 112777 000014 167716 MOVB #14, aDQREG SSEL THE SEQ REGISTER 
Sipe 011452 000207 RTS PC * LEAVE THE ROUTINE. 
Cc 
2306 011454 BCC.TA: 
2307 011454 004737 011024 JSR PC SET :SET UP ALL NECESSARY FOR TEST. 
2308 011460 012777 100010 167704 MOV walt isebIT3, apaseéc 
2309 SET SNGL CHAR AND BCC START CLEAR 
2310 011466 105377 167670 DECB @QRCSH SGET NEXT ADDR 
5311 011472 112777 000010 167670 MOVR “SEL CHAR DET ADDR 
2312 011500 012777 176400 167664 MOV ert Soase( ‘LOAD CHAR 
531% 011506 112777 000014 167654 MOVB #14, @DOQREG [SEL THE SEQ REG. 
2314 011514 013777 011022 167650 MOV FUNCT. .@DQSFC :SET TYE TEST APPEND FUNCTIONS 
3315 011522 112777 000017 167640 MOVB #17, aDQREG “SEL THE POLY REG. 
2316 011530 013777 013032 167634 MOV POLY , aDQSEC LOAD THE POLYNOMIAL 
5317, 011536 112777 000012 167624 MOVB #12, aDQRE SSEL THE MISC REG 
2318 011544 052777 000100 167620 BIS #BIT6,aDQSEC SEL EXT POLY REG 
2319 011552 112777 000017 167610 MOVR = & . 7, @DOREG *RESEL. THE POLY REG 
5320 611560 013777 013034 167604 MOV XPOLY,aDQSEC SET 16=23 PO 
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012700 012014 #TXBUFF ,RO SET TX POINTER 
Olcr ey MOV (PC)+,(RO)+ ;LOAD THE BUFFER WITH DATA 


355 i “DATA 
(PCS +, (RO)+ ‘LOAD THE BUFFER WITH DATA 
365 360, 365 “DATA 
(PCS+, (RO) + ‘LOAD THE BUFFER WITH DATA 
375 70,375 ‘DATA 
(PCS+, (RO)+ ‘LOAD THE BUFFER WITH DATA 
377 . 377,377 “DATA 
911620 PC -ENABLE :SET GO BITS FOR RX AND TX; WAIT FOR RX DONE. 


S2eSe8e 
— J 
ANNO NOW &M 


& 


011670 $ ; 
000005 611672 MO ;SET DELAY 
sSET RX GO. 


SF 
MLO 


011670 
011672 


ed td td I ee ed a ed ed 2 = 2 I 


wu 
ALON 


“RX PRI DONE NOT SET. 
“LEAVE 


33S BIS SSO BS I SS aa ao 
an AO 
N NN 
~*~ NO 


: $ 
012006 MO ‘ sSET DELAY 
:SET RX GO 
:SET TX GO 
167436 : :RX PRIMARY DONE? 
BM 2s ;BR 


012004 


YN 


— od os = od od I 4 23 
Nn — 


uninl— > 
OS 


*RX PRI DONE FAILED TO SET 
5$ sLEAVE 
167416 : MOVB  #12,a@DOREG *SEL THE MISC REG 
167412 #B1T3, aDQSEC :STOP DATA 
167402 15, aDQREG *SEL RX BCC 
MO “READ INTO RO 
@DOREG BCC 
167370 MO QDQSEC,R1 ZREAD INTO R1 
S$: PC * RETURN 
3$: 
4$: 


NNYNNNN 
RSURVSK 


0 
0 
0 
0 
0 
Q 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
C 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


ee ed ed ed od od od od = 


Nonon- eS Re Oe 


364 
365 
366 
367 
368 


& 


026 SYNC: 26,26 
026 SYNC: 7 26,26 
TXBUFF: 


000000 
012216 ‘ 
RKABUFF : 


000000 
912420 


2 
2 
r4 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 


BAIA 
AUFWMH CO 
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CZDOF macy 30A(1052) O7-JUL-78 08:38 PAGE 48 SEQ 0047 
CZDQFE.P11 == 09-JUN-78 07:58 PROGRAM INITIALIZATION AND START UP. 

2377 012420 026 026 XSYNC: .BYTE 26,26 

2378 012422 026 026 XSYNC2: .BYTE 26,26 

2379 012424 000000 XTXBUF : 000000 

2380 012626 .=, +200 

2381 012626 000000 XRXBUF : 000 

2382 013030 .=. +200 

2383 013030 000000 ERR 0 

2384 013032 000000 POLY 0 

2385 013034 000000 XPOLY: 0 

2386 013036 000000 C 0 

2387 013040 000000 COUNT: 0 

2388 013042 000000 ADDR Q 

2389 013044 000000 GDCHAR: 0 

t+ 013046 000000 DETCAR: 0 

2392 se OF PASS 

2393 TYPE NAME OF TEST 

239% SUPDATE PASS COUNT 

2395 3CHECK FOR EXIT TO ACT=11 

$396 SRESTART TEST 

2398 013050 005037 001234 -EOP: CLR LSTERR :CLEAR LAST ERROR PC 

2399 013054 005037 001312 CLR ERRFLG 7CLEAR ERROR FLAG 

2400 013060 005237 001237 INC PASCNT UPDATE PASS COUNT 

2401 013064 104402 TYPE 

2402 013066 015 MEPASS 

2403 013070 104402 TYPE 

2404 013072 015461 MC SRX 

2405 013074 104411 CNVRT 

24 013076 013206 XCSR 

2407 013100 104402 TYPE 

2 013102 015467 MVE CX 

2409 013104 104411 CNVRT 

2410 013106 013214 XVEC 

2411 013110 104402 TYPE 

2412 013112 015475 MPASSX 

2413 013114 104411 CNVRT 

2414 013116 013222 XPASS 

2415 013120 104402 TYPE 

2416 013122 015506 MERRX 

2417 013124 104411 CNVRT 

2418 013126 013230 XERR 

2419 013130 013777 001230 166044 MOV PASCNT ,a@l IGHTS ;DISPLAY PASS COUNT 

24 013136 005337 001276 DEC SAVNUM 

2421 013142 001013 BNE RESTRT 

2422 013144 013737 001504 001276 MOV DQNUM,, SAVNUM 

2425 013152 013701 000042 MOV 442,R1 CHECK FOR ACT-11 OR DDP 

2424 013156 001405 EQ RESTRT :IF NOT, CONTINUE TESTING 

2425 013160 RESET 

2426 013162 LOGICAL: 

2427 013162 004711 JSR PC, (R1) 

2428 013164 009240 NOP 

2429 013166 000240 NOP 

2430 013170 000240 NOP 

2431 013172 104414 Cs _..- RESTRT: CKSWR 

2432 013174 012737 002254 001214 MOV #TST1,RETURN 


CZ0QF MACYT) Brinn O7-JUL-78 08:38 PAGE 49 
CZDQFE.P11 UN=78 07:58 END OF PASS ROUTINE 


013202 000137 002254 JMP TST1 
013206 000001 xCSR: 1 
002 «BYTE 6,2 
DQRCSR 
XVEC: 1 


002 BYTE 3.2 
DQRVEC 
XPASS: 1 
002 BYTE 6.2 
PASCNT 
XERR: 1 


-BYTE 
ERRCNT 
:SCOPE LOOP AND INTFRATION HANDLER 


6.2 


165732 BI #81714 ,aSWR 


3$ 
aTKCSR 
@TKDBR ,RO 
165704 ‘ #SW11,@SWR 
BN 2$ 


LPCNT 
001222 eal cnet 


001222 
001214 NEXT RETURN 
RETURN, (SP) 


CHECK FOR FREEZE ON CURRENT DATA 
° : CKSWR 
165620 BIT #SWO09,aSWR 
BEO 1$ 
MOV LOCK, (SP) 
RTI 
TELETYPE OUTPUT ROUTINE 
R5,-(SP) 
@2(SP) ,R5 
000002 #2,2(SP) 
@ARDSwW 
300$ 
165560 #SW12,aSWR 
(RS) 
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CZDQF_ MACY11 30A(1052) O7=JUL-78 08:38 PAGE 50 
CZDQFE .P11 09-JUN=78 07:58 GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE,ETC.) 
BPL 2$ 
165556 aTPCSR 


000015 165550 mov «#15. @TPDBR 
165542 aTPCSR 


74 
165534 MOV #12,aTPDBR 
: aTPCSR 


000012 

165526 
2$ 

165522 (R5)+,@TPDBR 
(SP)+,R5 


sASCII STRING INPUT ROUTINE 


R3,-(SP) 
R4,-(SP) 
000004 013520 @4(SP),. 
000002 000004 AD #2,4(SP) 


015652 MINBUF ,R4 
000007 #7 ,R3 
165446 : @TKCSR 
BP 1$ 
165442 @TKDAR, (R4) 
000200 #200, (R4) 
000025 MPB (R4) ,A25 31S IT <*@ 
BNE 20 
015240 TYPE ,MCRLF 
BR - INST1 
000615 thy (R4)+,415 


INSTR? 
165410 165412 
165404 


BRS ase 


- INSTG 
. INSTE: R3,-(SP) 
R4,-(SP) 
-INSTG: 


MOM 
015060 @ARDSW 
BEQ 400$ 
015240 TYPE ,MCRLF 
400$: BR - INST 
INSTR2: MOV (SF) +,R4 
“| (SP) +,R3 


Bisteisitaaate 
t: SNMOAKLNMO 


ee ee ee ee ee eee se ee 


lelelelelelelelelelelelelele) 


EEES 


CONVERT ASCII] STRING TO OCTAL 


: MOV R>,=(SP) 
MOV RG, =(SP) 





CZDQF_ MACY 
CZ2DQFE.P11 


0140 
0140 


0140 
014 


1 


16 
22 


24 


030 


30A(1052) _0 
09-J 0 


NNNNNU ONS 


015652 
000015 
000060 


000067 
000060 


014054 
014052 
014060 


014056 


000002 
014061 


pee 08:38 


L 4 
PAGE 51 
GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE,ETC.) 


(R5)+,LOBITS 
(R5) +. ADRCNT 
R94 (SP) 


MINBUF ,R4 
#15, (R4) 
ARERR 


71S FIRST CHARACTER A <CR> 
1S CKSWR ROUTINE BEING USED 


TEST TO SEE IF NUMBER IS WITHIN LIMITS 
LIMITS: R5,HILIM 
BH 


STORE NUMBER AT SPECIFIED ADDRESS 


DEVADR ,R4 
1$: R5,(R4)+ 
2-R5 


#2,R 
ADRCNT 
BN! 1$ 
PARTI: (SP)+,R4 
MOV (SP)+,R5 
LOLIM: 
LOBITS: 0 
ADRCNT=LOBITS+1 
ZSAVE PC OF TEST THAT FAILED AND RO=RS 


SEQ 0050 





CZDQF 


MACY11 


CZ2DQFE.P11 


2601 
2602 


See eee eee eee 


Mn 
Oo 


014062 


MAN 


lolelelelelelo) 
et atat ab ad ad ad 
BREESE 
at ad end anh aa xd al 
VCSEL 


Man 


ad ed ad od ed eed od 
ar 
N 
W 
NM 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
014260 
014262 
0 
0 
0 
0 
0 
0 
0 
Q 
0 


30A (1052) 
09-J 


07-JUL-78 08:38 


UN-78 07:58 


016637 000004 001274 


012137 


— 2 


015714 
177770 
000060 


015756 


001250 
000012 


GENERAL 


.SAVOS: 


SVv05: 


-RESOS: 


mM 4 
UTILITIES (TYPE OUT,ERROR,SCOPE,ETC.) 


PAGE 52 


MOV 4(SP) , SAVPC 
;SAVE RO-R5 

MOV RS,SAVR5 
MOV R4,SAVR4 


MOV R1,SAVR1 
MOV RO, SAVRO 


sRESTORE RO=R5 
MOV SAVRO ,RO 
MO 


MOV SAVR4 ,R4 
MOV SAVRS5 ,R5 


RTI 

CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 
-CONVR: TYPE 

MCRLF 
-CNVRT: MOV RO,-(SP) 

MOV R1,-(SP) 


2$: 


3$: 


4$: 


MOV BINWRD, 
MOVB = CHRCNT.RS 
MOV #TEMP,RO 
MOV 4,R3 

BIC #177770,R3 
ADD 0,R 

MO R3, (RO) + 
CLC 

ROR RG 

CLC 

ROR RG 

CLC 

ROR RG 

DEC RS 

BNE 


3$ 
MOV MNDATA,R3 
~(RO),(R3)+ 


SEQ 0051 
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CZDQF MACY11 30A(1052) 07-JUL-78 08:38 PAGE 53 SEQ 0052 
CZDQFE.P11 09-JUN-78 07:58 GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE ETC.) 


105337 DECB CHRCNT 
001374 BNE 4$ 
SPACNT 
#040, (R3)+ 
ACNT 


014374 
001250 015714 


(SP)+,RO 


TI 
WRDCNT: 0 
014376 000000 CHRCNT: O 
SPACNT=CHRCNT +1 
014400 BINWRD: 0 


; TRAP DISPATCH SERVICE 

TARGUMENT OF TRAP IS EXTRACTED 

SAND USED AS OFFSET TO OBTAIN POINTER 
TO SELECTED SUBROUTINE 


(SP) ,-(SP) 3GET s OF RETURN 

#2, (SP) 3=PC OF TRAP 

a(SP), (SP) GET TRP 

(SP) {MULTIPLY TRAP ARG BY 2 
#177001, (SP) CLEAR UNWANTED BITS 

#. TRPTAB, (SP) “POINTER TO SUBROUTINE ADDRESS 
a(SP), (SP) [SUBROUTINE ADDRESS 

@(SP)+ :GO TO SUBROUTINE 


ERROR HANDLER 


014402 


0 
162 
017 


gogee 
~rhrn 

=O NNW 
RRARRAARAD 


#SW12,aSWR 
XBX 
aTPCSR 


XBX 
#207, @TPDBR 
wu, aSwR 


HALTS 

(SB) -LSTERR 
(SP) ,LSTERR 
ERRFLG 

(SP) RS 
#2,R5 
(R*) RG 

R4 
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CZDQFE.P11 O9-JUN=78 07:58 GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE,ETC.) 


(R5) ,R4 
R4 
#177001 ,R4 


#.ERRTAB ,R4 
(R4)+, ERRMSG 


- 014656 


ea Fh Fe 


3 
oO 


FRARRRAR 
P Ws 
ro) > 


177777 =001312 MOVB #-1,ERRFLG 
014632 RRMSG 
WRKO.FM 


S=S 
vw 


ERRMSG: 

WRKO.FM: 
014644 DATAHD 
TYPDAT 


DATAHD: 0 
014656 TYPDAT: DATABP 
RESREG 
DATABP: 0 
RESREG: 
164312 HALTS: TST @SWR 
EXITER 


000002 MO 2(SP) ,RO 


“EXITER: 
001232 ERRCNT 
000400 164262 #SWO8, ISWR 


1$ 
002000 164252 #5W10,aSWR 
001216 001214 NEXT RETURN 
001200 =. 1$: #STACK, SP 
164246 * @RE TURN 

ERTABO: 1 
002 y 6,2 
014756 XTSTN: 
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CZDQFE.P11 09-JUN=78 07:58 GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE,ETC.) 


014760 003 002 -BYTE 3,2 
014762 001226 TSTNO 
sENTER HERE ON POWER FAILURE 
-PFAIL: 
012737 014776 000024 MOV #RESTART,24 ;SET UP FOR POWER UP TRAP 
000000 HALT ;HALT ON POWER DOWN NORMAL 
014774 000777 
;PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 


014776 RESTAR: 
012737 Bie ee 000024 #.PFAIL 24 SET UP FOR POWER FAILURE 


MSTACK , SP 
015714 TEMP 
015714 ~? 


015056 


2 CHECK SWITCH REGISTER ROUTINE. CHECKS FOR *G TO ALLOW CHANGING 
;OF LOC.176. 

;LOCATIONS USED: 

RDSw: -WORD 0 


Oo 
— 
Vi 
& 
oO 


a? 
ASWREG, SWR :SOFTWARE SWITCH REGISTER PRESENT 
OU; sNO, GET OUT 
aTKCSR 
OUT 
@TKDBR, .MSG 
#177600, .MSG 
47, -MSG 
BNE ouT 
TYPE ,$CNTG 
OM 


:IS IT A <4G> 


hetototoloiotololotololololojototo! 


000000 Q 
177777 177777 
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CZDQFE .P11 09-JUN-78 07:58 GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE ETC.) 


SWREG 


TYPE ,MCRLF 
CLR @ARDSW 


OUT: 


R 
SWREGC: 
-BYTE 


000107 SCNTG: . <377>/*G/ 

051127 020075 $MSWR: . <377>/SWR= / 

047040 053505 SMNEW: . / NEW= / 
000 

-EVEN 

MQM: 

MCRLF : 


000077 pe ia 


ae <377> 
051127 043040 MPFAIL: .ASCIZ <377>/PWR FAILED. RESTART AT TEST / 


MEPASS: .ASCIZ <377>/END PASS DZDQF / 


ASCIZ <377>/R/ 
ASCIZ 


MR: 4 
MERR2: .ASC <377>/PROGRAM INDICATES NO DEVICES PRESENT./ 


MERR3: .ASCIZ <377>/INSUFFICIENT DATA!/ 


020124 MISTPC: .ASCIZ <377>/TEST PC-/ 
020113 MLOCK: .ASCIZ <377>/LOCK ON SELECTED TEST/ 


000 
051123 020072 MCSRX: .ASCIZ /CSR: / 
041505 020072 MVECX: .ASCIZ /VEC: / 
051501 042523 MPASSX: .ASCIZ /PASSES: / 
000040 
067958 051522 MERRX: .ASCIZ /ERRORS: / 


0 
052377 051505 MITSTN: .ASCIZ <377><377> /TEST NO: / 
047516 020072 


042523 020124 MNEW: .ASCIZ <377>/SET SwITCH REG TO DQ11°S DESIRED ACTIVE./ 
052111 044103 
043505 952040 


elelelelealelejlelejo) 
> 3 I ss — SS — FH 4 
MANAA ADAMI 
M—=—O07n 
RELA 


SWS 
COWNMEN 
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CZDQFE.P11 UN-78 07:58 GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE,ETC.) 


015554 050504 030461 
042040 051505 


942105 040440 
053111 027105 
035103 000040 MERRPC: .ASCIZ /PC 
050101 MHEAD: .ASCIZ C39 7>/MAP OF DQ11 STATUS/<377> 
050504 
040524 
000 
-EVEN 
XSTATQ: 2 
003 fA 6,3 
6, 
015650 : 
BUFFERS FOR INPUT-OUTPUT 
015652 
015714 


015756 


3 


0 
0 
0 
0 
0 
0 
E 
Q 
0 
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CZDQFE.P11 09-JUN=78 07:58 GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE,ETC.) 


016361 EM2 
017050 ore sHALT 12 


SHALT 13 
sHALT 14 
HALT 15 
HALT 16 
sHALT 17 
HALT 20 


HALT 21 


041505 044505 <377>/RECEIVER DONE NOT SET!/ 


<377>/BCC TEST=APPEND FAILURE. DQ11 ERROR FLAG SET./ 
<377>/DATA COMPARE ERR 

<377>/DQ11 ERROR FLAG SET 1 

<377>/NO RECIEVER INTERUPTS./ 

<377>/CHAR RECEIVED EXPECTED ADDRESS/ 
<377>/BIT01 -SET ~~ 

<377>/BITO2 -CLEAR 

<377>/BIT03 -BCC START CLEAR-/ 
<377>/BIT06 -CLEAR ACTIVE-/ 
<377>/BIT07 -SET DONE; CLEAR GO-/ 
<377>/BIT08 -CHARACTER STRIP-/ 
<377>/BIT10 -TX PAD-/ 

<377>/BIT11 -BCC EXCLUDE-/ 

<377>/BITO8 -RX CHAR STRIP=/ 
<377>/MULTIPLE FUNCTIONS FAILURE/ 

ps hh Th, RECEIVED/ 

<377>/DQE 

S37 PO /DLE™ STUCK / 


IZ 
IZ 
IZ 
IZ 
IZ 
IZ 
IZ 
IZ 
IZ 
IZ 
IZ 
iZ 
IZ 
IZ 
IZ 
IZ 
IZ 
IZ 
IZ 
IZ 
I2 
IZ 


NNN 
MMMM NV: 


aw) 
oR 


051440 


NNN NNN 
N 
* 
Nm 
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CZDQF MACY11 30A(1052) O7=JUL-78 08:38 PAGE 59 SEQ 0058 
P11 09-JUN=78 07:58 GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE ETC.) 


006 002 
073030 
00009 4 
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P11 09=JUN=78 07:58 CROSS REFERENCE TABLE == USER SYMBOLS 


1287*  1300* 1339* 1352s 
1468 23884 


COWW— Oo 
OWSWwWO- 


Nm 
DOAK HLLOVOON 


-—-oO0o----— 
Rashes 


So 
on 


1 
1 
1 
1 
1 
1 
2 
2 
1 
1 
1 
1 


CON OS 
C--W 


RNOS 


1288 1301 1327 


2678 
2431 2449 2696 


2417 2726 2789 


1593 1602 1839 C 23874 
1063 1064* 1066* 


—d and ad 
NEO 


1156* 1174s 1191 i 1437" 16438* 
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CZ2DQFE.P11 O9-JUN=78 07:5 CROSS REFERENCE TABLE == USER SYMBOLS 
016643 2920 29614 
DH3 2923 29614 
016715 2926 29614 
DHS 016743 2929 29614 
DH6 016777 2932 29614 
7 017030 2935 29614 
DISPRE 000174 6894 956 
DLIGHT= 177570 5744 947 
D@ACTV 001500 669 743* 749* 750* 754 9194 993* 994 1044 1046 
001400 8874 
D@CRO1 001404 8894 
D@CRO2 001410 8914 
DQCROS 001414 8934 
001420 8954 
DQCROS 001424 8978 
DQCRO6 001430 8994 
DQCRO7 0014 9014 
DACRIO 001440 
DQCR11 001444 9054 
DQCR1I2 001450 9074 
DQCR13 001454 9094 
DQCR14 001460 9114 
DQCR15 0014 9134 
DQCR16 001470 9154 
DQCR17 001474 9174 
DQCSR 001506 9224 1063* 1067 
001366 8774 1080* 1081* 1082 1896* 1933* 2068 2084 2100 2177 
001504 702* 739* 744 746 9214 935 2422 
DQRCSH 001362 8754 1076* 1077 1120" 1125* 1183* 1436* 1489% 1529% 1535* 1810*  1874* 1882* 
1924* = 1963* 2011% 2139" 2144" 2221 22278 2230% 2267% 2300* 2310* 
DQRCSR 001360 8744 1067* 1076 1078 1133* 1145 1148 1190* 1204 1207 1451* 1463 
ee 1640* 1645 1652 1698 1977* 1979 2174 2180 2335* 2337 2350* 2352 
DQREG 001370 8784 1082* 1083* 1084 1121" 1123% 1127" 1129% 1131*% 1179% 1181* 1184% 1186* 
1188* 1441* 1443" 1445% 1447 1449% 1490* 1492% 1501* 1505* 1530" 15328 1537* 
1539* 1571* 1573" 1584* 1586* 1588* 1590 1648*  1690*  1694* 1811* 1813* 1816* 
1818* 1830* 1832* 1834* 1836* 1875* 1879% 1883* 1885s 1888*  1893*  1895* * 
904* 1925 1927" 1930" 1932* 1941*% 1945% 1964% 1968*  2012* 2014* 2023* 2027s 
2029* 2031* 2033* 2035" 21408 2142% 2145" 2147% 2149 2151" 2153% 2155* 21578 
2159* 2186" = =2190* = 2212e 214% = 2.215% = 2.217% = 2.220 = 2223% = 2225 = 2.232% = 2.235% = 2.247 
2249% = 2251% 2258% 2260* 2262% 2268% 2270 2285% 2287% 2289% 2291* 2293 2295* 
2301* 2303" 2311% 23135% 2315% 2317*% 2319% 2360% 2362* 2364% 
DQRLVL 001352 8714 1070* 1071* 1072 
DORVEC 001350 87 1068*  1069* 1070 2439 
DQSEC 001372 8794 1084* 1085* 1086 1122e  -1124* = 1128* = 1130* = 1132 = 1136" = 1140" = 1141* = 1142s 
1180* 1182* 1185* 1187% 1189% 1194% 1199" 1200* 1201*% 14428 1444% 1446* 1448+ 
1450* 1454" 1458* 1459% 1460* 1487% 1491* 1493% 1502 1506 1527* 1531* 15335* 
1538* 1540* 1569" 1572 1574* 1585* 1587* 1589* 1591% 1626" 1632* 1649 1671* 
1679* 1691 1695 1718* = 1733s 1763* 1778* 1808* 1812 1814 1817* 1819 1831* 
1833* 1835* 1837* 1872* 1876 1880* 1884* 1886* 1889* 1894* 1898* 1901 1905 
1922* 1926" 1928* 1931* 1935* 1942 1946 1961* 1965 1969* 2009* 2013* 2015» 
2024* 2028 2030" 2032* 2034% 2036% 2138 2141% 2143" 2146% 2148% 2150* 2152s 
2154* 2156" 2158* 2160* 2187 2191 2216* 2224% 2226* 2233 2236*% 2248 2250* 
2257% §=2259% = 2261* = 2.263% = 2.266" = 2.269% = 2286* = 228B* = 2290* = 2292 = 2.294% = 2.296) 2299 
; 2302* 2508* 23128 23148 C216" 2318 23208 2361* 2363 2365 
DQSFCH 001374 8804 1086" 1087* 
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CZDQFE.P11 09-JUN=78 07:58 CROSS REFERENCE TABLE == USER SYMBOLS 


1068 1110 2282 2264 2279 2297 


1641* 1938* 1939 1978* 2183 2336* 2351* 


+ 


2937 2940 29614 


1899 2173 2330 


2791* 
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CZDQFE.P11 09-JUN-78 07:58 CROSS REFERENCE TABLE == USER SYMBOLS 


25948 
2706* 2792s 
2627 2733 2827 28404 


SS Ves 
VIN — 
™m 


29054 
1435 2241 2273 2794 


2 
es 


28504 
2235 


' 
lelelelelen lelels) 
— SS YS I 
MI) 
— 


1247* 1260* 1273* 1286* 1299* 
1416* 1429% 1484* 1525* 1567* 
2007* 2063* 2079% 2095* 2136* 


28044 


1031* 1037* 861112" 81113 2432* 2465* 2466 2761* 


1049* 1062* 
1053* 
1043s 





CZDQF 
CZDQFE.P11 


RXBA.P= 000000 
RXBA.S= 000004 
RXBUFF 012216 


0000 
011024 
014377 


MACY11 30A(1052) 
09-JUN-78 0 


i. 3 
65 
CROSS REFERENCE TABLE == USER SYMBOLS 


O7-JUL-78 08:38 PAGE 
7:58 


1589 
2194 


1724 
2248 


1738 
2286 


1769 
23754 


1783 1831 


2422s 


2257 
1137* 
1455* 

8024 
28 


2896 
2669 


23720 


1138 
1456 
973* 


1148* 
1466* 
974 


1149s 
1467* 
978* 


1193" 1197s 


2669* 
2894 


1835 


1207* 
2784" 


1981 


1208* 
2785* 


1994 


1209 
29034 
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ge 
—= 
mr 
yu 
nr 


wovIiwn 
NVIWG 
R 


8 


8288288 
—~f Oo 
NM &Nonrononr 
os 
ABNOs 
R 5 

— UNW ¥ 


1259* 1272* 1285* 1298*  1311* 
1428* 1483* 1524 1566* 1623+ 
2006* 2062* 207, 2094* 2135* 2770 


SESS SERS 
Sil euomuyaNe Yh 
EQVRLS YQAaee 


ee 
=~ 
z 


YES; VOWS BH EWWNWOWWWPonono 
— oO 
vy N 
Seex 


RLASRGARRBRARS 
Nw 
8 


ra 
Bs 


kd ed od od td od — 
— 


NO O00 00 SINIA DA SW ES EES 
aA—XM 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


—  Ooocn 
oOnMwnNn 


1019* 24514 


000006 
012014 1822 1824 1827* 


1579 
1931 2017 Ss 2019-—s« 02 1® 
TXWC.P= 000003 =; 
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27444 
964 


972 98 1014 1032 1057 2401 2403 2407 2411 


989 
$359 2531 253 2626 2665 2724 2728 2732 2737 2742 2787 


(26764 
27024 


23854 


015223 
015214 
000044 


= 600016 
017262 


28074 
28184 
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COUAOMWUI 


2813* 2814* 2815 


9 Tropa 
BOs 
Bg 


27748 2782 


26 
24814 


ERRORS DETECTED: 0 
DSKZ : CZDQFE ,DSKZ:CZ2DOFE .SEQ=DSKZ:CZDQXX.MAC ,DSKZ:CZDQFE.P11 
RUN-TIME: 7 10 7 SECONDS 


SEC 
RUN-TIME RATIO: 38/19=2.0 
CORE USED: 19K (37 PAGES) 


DOCUMENT PAGES: 66 





